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Kapitel 1 


Vorbemerkungen 


1.1 Einführung 


Die Berechnung der Determinante einer quadratischen Matrix ist ein Problem, dessen effiziente 
Lösung in vielen Bereichen von Interesse ist, in der Informatik z. B. in der Computergrafik und 
der Kodierungstheorie. 

Ein Problem in der analytischen Geometrie ist es, die Lage von geometrischen Objekten zu¬ 
einander festzustellen und Schnittpunkte oder -ebenen zu berechnen. Ein Teilproblem dabei ist 
die Prüfung der linearen Unabhängigkeit von Vektoren. Es läßt sich auf die Berechnung einer 
Determinante zurückführen. 

Ein weiterer Bereich, in dem die Determiantenberechnung angewendet wird, ist die theoretische 
Physik. Dort wird in vielen Theorien auf Matrizen zu Beschreibung der verschiedenen Sach¬ 
verhalte zurückgegriffen. In der Einstein’sche Relativitätstheorie z. B. wird die Tersorrechnung , 
die die Eigenschaften sich von Koordinatensystem zu Koordinatensystem ändernder Maßzahlen 
untersucht, ausgibig verwendet. Die Determinante ist eine solche Maßzahl. Beim Studium von 
Literatur, die diese Thematiken behandelt (z. B. [BS86] ab S. 70), stößt man immer wieder auf 
Matrizen und ihre Determinanten. 

Seitdem sich die Forschung im Bereich der Informatik zunehmend mit Parallelrechnern beschäf¬ 
tigt, werden für alle bekannten Probleme Algorithmen gesucht, die die Tatsache, daß auf einem 
Parallelrechner mehrere Prozessoren gleichzeitig an der Lösung desselben Problems arbeiten, 
besonders effizient ausnutzen. 

Betrachtet man eine Matrix aus der Sicht der Informatik als Datenstruktur, so drängt sich die 
Benutzung dieser Datenstruktur in Parallelrechnern geradezu auf, denn intuitiv, ohne zunächst 
alle Probleme ausgearbeitet zu haben, kann man auf die Idee kommen, die Matrizenelemente 
jeweils einzelnen Prozessoren oder Gruppen von Prozessoren zuzuordnen, die das zugrunde¬ 
liegende Problem für dieses Matrizenelement bearbeiten. Selbstverständlich ist die praktische 
Verwendung dieser Idee nicht in jedem Fall ganz so einfach. 

So war die effiziente Parallelisierung der Determinantenberechnung lange Zeit ein ungelöstes 
Problem, bis 1976, als Laszlo Csanky einen in jenen Tagen überraschenden Algorithmus veröffent¬ 
lichte [Csa76]. Es folgten eine Reihe weiterer Algorithmen verschiedener Autoren mit vergleich¬ 
baren Leistungsmerkmalen. 

In all diesen Veröffentlichungen wird vorrangig die Größenordnung der Laufzeiten und Anzah¬ 
len der Prozessoren betrachtet. Es werden in einzelnen Veröffentlichungen auch bereits einige 
Vergleiche mit den anderen Algorithmen durchgeführt. So ist es wünschenswert einen Überblick 
über die existierenden Algorithmen zu bekommen und sie insgesamt miteinander zu vergleichen. 

Die vorliegende Diplomarbeit behandelt vier Algorithmen zur parallelen Determinantenberech¬ 
nung 1 . Dabei wird auf die Verwendung von Größenordnungen ( O-Notation ) in Aufwandsana- 

1 [Csa76], [BvzGH82], [Ber84] und [Pan85] 
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1.2 Das Berechnungsmodell 


lysen weitgehend verzichtet. Um den Einsteig in das Thema zu erleichtern, wird zusätzlich noch 
der Entwicklungssatz von Laplace zur Berechnung der Determinante erwähnt. 

Die Darstellung der vier Algorithmen in den zugehörigen Kapiteln 3 bis 6 umfaßt neben den 
Grundlagen und der Algorithmen selbst, jeweils eine Analyse der Rechenzeit und des Grades 
der Parallelisierung 2 . Da in der Praxis die Größe des benötigen Speicherplatzes kein vorrangiges 
Problem mehr darstellt, wird dieser Wert nicht analysiert. Matrizen mit Elementen ausC werden 
nicht betrachtet. In diesen vier Kapitel wird versucht, auf Unterschiede und Gemeinsamkeiten 
der Algorithmen einzugehen. 

Im Anschluß an die Darstellung der Algorithmen wird in Kapitel 7 ihre Implementierung be¬ 
schrieben. Die Quelltexte sind im Anhang zu finden. Schließlich erfolgt in Kapitel 8 ein zusam¬ 
menfassender Vergleich der Algorithmen. 

Der Text soll es ermöglichen, die Algorithmen ohne weitere Literatur anhand von Grundkennt¬ 
nissen aus der Mathematik und Informatik zu verstehen. Aus diesem Grund und um einheitliche 
Bezeichnungen zu vereinbaren sind Grundlagen, insbesondere aus der Linearen Algebra, an den 
benötigten Stellen aufgeführt. Für den Fall, daß die im Text enthaltenen Informationen nicht 
ausreichen, sind die benutzten Quellen an den jeweiligen Stellen angegeben. 

Alle Betrachtungen abstrahieren von technischen Problemen bei der Konstruktion von Parallel¬ 
rechnern. Dazu wird das Rechnermodell der PRAM benutzt. Die Beschreibung dieses Modells 
erfolgt in Kapitel 1.2. 

Vor anderen Teilen dieser Diplomarbeit sollten zunächst die Kapitel 1.2 und 1.3 gelesen wer¬ 
den. Alle weiteren Teile von Kapitel 1 sowie Kapitel 2 sind als Sammlung von Grundlagen zu 
verstehen, auf die bei Bedarf zurückgegriffen werden kann 3 . 


1.2 Das Berechnungsmodell 


In diesem Kapitel wird der für Komplexitätsbetrachtungen verwendete Modellrechner beschrie¬ 
ben. Es ist die Arbitrary Concurrent Read Concurrent Write Parallel Random Access Machine 
( arbitrary CRCW PRAM) . Sie besteht aus gleichen Prozessoren, die alle auf denselben Ar¬ 
beitsspeicher zugreifen. Innerhalb einer Zeiteinheit können diese Prozessoren, und zwar alle 
gleichzeitig, zwei Operanden aus dem Speicher lesen, eine der in Tabelle 1.1 aufgeführten Ope¬ 
rationen ausführen und das Ergebnis wieder im Speicher ablegen. Falls beim Schreiben mehrere 
Prozessoren auf eine Speicherzelle zugreifen, muß der Algorithmus unabhängig davon korrekt 
sein, welcher Prozessor seinen Schreibzugriff tatsächlich ausführt. Da die Komplexität der vier 


Operation 

Symbol 

Addition 

+ 

Subtraktion 

- 

Multiplikation 

* 

Division (Ergebnis in(Q) 

/ 

Division (Ergebnis in 2) 

div 

x — (x div y) * y 

x mod y 


Tabelle 1.1: Operationen des Modellrechners 

hauptsächlich interessierenden Algorithmen nicht nur auf ihre Größenordnung hin untersucht 
wird, sondern die Ausdrücke zur Beschreibung der Komplexität genau angegeben werden sol¬ 
len, ist es erforderlich, von Details der Implementierung, die die Konstanten beeinflussen, zu 
abstrahieren, so daß die Aussagen allgemeingültig sind. Aus diesem Grund wird 

2 Diese Begriffe sind in Kapitel 1.3 definiert. 

3 Im Text kommen häufig Punkte und Kommata als Satzzeichen direkt im Anschluß an abgesetzte Gleichungen 
vor. An einigen Stellen, besonders hinter Vektoren und Matrizen, fehlen diese Satzzeichen aus technischen 
Gründen. 




1.3 Bezeichnungen 9 

• für die Verarbeitung von Schleifenbedingungen, 

• für die Verarbeitung von Verzweigungsbedingungen, 

• für die Ein- und Ausgabe von Daten, 

• für die Initialisierung von Speicherbereichen, 

• und für komplexe Adressierungsarten (z. B. indirekte Adressierung) beim Zugriff auf 
Speicherbereiche 

kein zusätzlicher Aufwand in Rechnung gestellt. Es werden also nur die arithmetischen Opera¬ 
tionen gezählt. 

Zu beachten ist, daß bei einer PRAM jeder Aufwand zur Verteilung von Aufgaben auf verschie¬ 
dene Prozessoren vernachlässigt wird. Diese Eigenschaft bietet die Möglichkeit zur Kritik, da 
so jedes Problem deutlich vereinfacht wird, jedoch in der Praxis die Organisation der Aufga¬ 
benverteilung nicht unerheblichen Aufwand erfordert. Eine genaue Analyse der Auswirkungen 
dieser Vernachlässigung ist umfangreich und nicht Thema des vorliegenden Textes. 


1.3 Bezeichnungen 

In diesem Kapitel werden die verwendeten Begriffe und Symbole definiert. 

Um auf die in der Arbeit hauptsächlich behandelten Algorithmen einfach Bezug nehmen zu 
können, werden mit Hilfe der Namen ihrer Autoren die folgenden Abkürzungen vereinbart: 

• C-Alg. steht für den Algorithmus von Csanky (Unterkapitel 3.8 ab S. 40). 

• BGH-Alg. steht für den Algorithmus von Borodin, von zur Gathen und Hopcroft (Unter¬ 
kapitel 4.6 ab S. 59). 

• B-Alg. steht für den Algorithmus von Berkowitz (Unterkapitel 5.3 ab S. 72). 

• P-Alg. steht für den Algorithmus von Pan (Unterkapitel 6.7 ab S. 99). 

Die Menge der positiven ganzen Zahl ohne Null wird mit 


bezeichnet. Die Menge der positiven ganzen Zahl einschließlich der Null wird mit 

INo 

bezeichnet. Falls nicht im Einzelfall anders festgelegt erfolgen alle Darstellungen von Zahlen zur 
Basis 10. 

Der Vorgang, in dem beliebig viele Prozessoren gleichzeitig je zwei Operanden aus dem Ar¬ 
beitsspeicher lesen, aus diesen Operanden ein Ergebnis berechnen und dieses Ergebnis wieder 
im Arbeitsspeicher ablegen, wird als ein Schritt bezeichnet. 

Die parallele Zeitkomplexität eines Algorithmus bezeichnet die Anzahl der Schritte, die dieser 
benötigt, um die Lösung 4 für das zugrunde liegende Problem zu berechnen. Die maximale 
Anzahl der Prozessoren, die dabei gleichzeitig beschäftigt werden, wird mit Parallelisierungsgrad 
des Algorithmus bezeichnet. 

Falls nicht im Einzelfall anders festgelegt, gilt folgende Regelung: Großbuchstaben bezeichnen 
Matrizen und Kleinbuchstaben Zahlen oder Vektoren, A bezeichnet eine nx n-Matrix, indizierte 
Kleinbuchstaben beziehen sich auf die Elemente der mit dem zugehörigen Großbuchstaben 
bezeichneten Matrix. 

Die in Tabelle 1.2 aufgelisteten Schreibweisen werden benutzt. 

4 Die von uns betrachteten Probleme besitzen nur eine Lösung. 
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1.4 Das Präfixproblem 


Begriff 

Schreibweise 

Element in Zeile i , Spalte j von A 

a i,j 

i-tes Element des Vektors v 

Vi 

Matrix, die aus A durch Streichen der Zeilen v und der Spalten 
w entsteht (dabei seien v und w echte Teilmengen der Menge der 
Zahlen von 1 bis n; diese Mengen werden hier als durch Kommata 
getrennt Zahlenfolge geschrieben) 

A(v\w) 

Einheitsmatrix (Elemente der Hauptdiagonalen gleich 1; alle an¬ 
deren Elemente gleich 0) mit n Zeilen und Spalten 

E n 

Einheitsmatrix (Anzahl der Zeilen und Spalten aus dem Zusam¬ 
menhang klar) 

E 

Nullmatrix (alle Elemente sind gleich 0) mit m Zeilen und n 
Spalten 

0m,n 

Nullvektor (alle Elemente sind gleich 0) der Länge m 

o m 

Logarithmus von x zur Basis 2 

log(a’) 

Menge aller n-stelligen Permutationen 

•S n 

lim (l+ ( = 2.718281...) 

n—toc y n J 

e 

Logarithmus von x zur Basis e 

ln(a;) 

Anzahl der Elemente der Menge M 

\M\ 


Tabelle 1.2: Bezeichnungen 


1.4 Das Präfixproblem 


Von einer effizienten Lösung des Präfixproblems wird an verschiedenen Stellen Gebrauch ge¬ 
macht. Es ist also von übergreifendem Interesse und wird deshalb hier behandelt ([LF80], 
[Weg89] S. 83 ff.). Es läßt sich folgendermaßen formulieren: 

Gegeben sei die Halbgruppe 

(M, o) . 

D. h. die Verknüpfung o ist assoziativ auf M. Weiterhin seien 

^35 • • • ) 

Elemente aus M. Es wird definiert 


Pi := Xi o X 2 o £3 o ... o Xi . 


Das Präfixproblem besteht darin, alle Elemente der Menge 

{pi\l < i < n} 

zu berechnen. 


Es sind u. a. zwei Möglichkeiten 5 denkbar, dies mit parallelen Algorithmen zu erreichen. 

• Die erste Möglichkeit: 

1. Löse das Präfixproblem parallel für 


und 

so daß nach diesem Schritt 
bereits berechnet sind. 


Xl,.. • ,X|- n /2-| 

X [n/2+1] 5 • • • ? X n , 


P , P \ n /2] 


5 die sich zu einer dritten zusammenfassen lassen (Satz 1.4.1) 




1.4 Das Präfixproblem 
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2. Berechne aus 


und der Lösung des Problems für 


P\n/2\ 


[ra/2+1] > • • • ) 2-n 


parallel in einem weiteren Schritt 


P\n/ 2 + 1 ] > • • • > Pn 


• Die zweite Möglichkeit, die hier kurz dargestellt werden soll, sieht folgendermaßen aus (o. 
B. d. A. sei n eine Zweierpotenz): 

1. Berechne parallel in einem Schritt 

Xi O x 2 , X3OX4,..., X n -! o x n 

2. Löse das Präfixproblem für diese n/2 Werte. Damit werden alle Pi mit geradem i 
berechnet. 

3. Die noch fehlenden pi für ungerade i können nun parallel in einem weiteren Schritt 
aus der Lösung für die n/2 Werte und den Xi mit ungeradem i berechnet werden. 


Diese beiden Möglichkeiten können zu einem Algorithmus zusammengefaßt werden: 


Satz 1.4.1 Gegeben sei die Halbgruppe 


(M, o) 


Das Präfixproblem für n Elemente 

X \, X2 5 • • • 5 %n 

von M läßt sich von 

3 

_4 n 

Prozessoren in 

[log(n)1 

Schritten lösen. 


Beweis O. B. d. A. sei n eine Zweierpotenz. In dem Fall, daß n keine Zweierpotenz ist, wird 
n durch die nächst höhere Zweierpotenz n' ersetzt und alle Verknüpfungen mit Elementen Xi 
von M für 

i > n 


werden nicht durchgeführt. 

Benutze folgenden Algorithmus: 

1. Wenn 

n — 1 

dann ist Xi das Ergebnis. 

2. Wenn 

n = 2 

dann ist 

Xi,Xi ox 2 

das Ergebnis. 

3. Schritte 3a und 3b parallel: 
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1.4 Das Präfixproblem 


(a) i. Berechne parallel in einem Schritt 

Xi O £2, • ■ • , X n / 2 —l 0 *^n /2 

ii. Benutze den Algorithmus rekursiv zur Lösung des Problems für die in Schritt 
3(a)i erhaltenen n/4 Werte. Auf diese Weise sind die p, für 

1 < i < n/2 

mit geraden i, u. a. auch p n / 2 , bereits berechnet. 

(b) Benutze den Algorithmus rekursiv zur Lösung des Problems für 


Xn/2+li • • * 5 x n 


4. Schritte 4a und 4b parallel: 

(a) Für i gelte 

1 < i < n /2 . 

Wenn n/2 > 2, dann berechne parallel in einem Schritt mit Hilfe der pi aus 3(a)ii 
und der x t mit ungeradem i die fehlenden pi mit ungeradem i. 

(b) Berechne aus p n /2 und den Ergebnissen von 3b die pi mit 

n /2 + 1 < * < n . 


Zur Analyse des Algorithmus bezeichnet s(n) die Anzahl der Schritte, die er benötigt, um das 
Präfixproblem für n Eingabewerte zu lösen, und p(n) die Anzahl der Prozessoren, die dabei 
beschäftigt werden können. 


• Hier wird zunächst die Anzahl der Schritte betrachtet. Es gilt 

s(l) = 0, s( 2 ) = 1 , s( 4) = 2 . 

Bei der Betrachtung des Algorithmus erkennt man, daß folgende Rekursionsgleichung 
Gültigkeit besitzt: 

Vn > 4 : s(n) = max(s(n/4) + 1, s(n/2)) + 1 . (1.1) 

Wenn man diese Formel auf s(n/2) anwendet und das Ergebnis in die obige Formel ein¬ 
setzt, erhält man 

Mn > 4 : s(n) = max( s(n/ 4) + 1, max(s(n/ 8 ) + 1, s(n/4)) + 1) + 1 
Aufgrund der Assoziativität der max-Funktion ist dies gleichbedeutend mit 

\/n> 4: s(n ) = max(s(n/4) + 1, s(n/8) + 2, s(n/4) + 1) + 1 

=> Mn > 4 : s(n) = s(n/4) + 2 

Es gilt also für jedes i: 

Vn > 4 : s(n) = s(n/ 2 2 *) + 2 i 
Mit 

. log(?r) 

1 2 

erhält man als Endergebnis 

s(n) = log(n) . 

• Für die Anzahl der beschäftigten Prozessoren p(n) gilt: 


p(l) = 0,p(2) = l,p(4) = 2 



1.5 Lösungen grundlegender Probleme 
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Ferner gilt offensichtlich folgende Rekursionsgleichung: 

Vn > 4 : p(n) = max(n/2 + n/4, p(n/ 4) + p(n/2), n/A + p{n/ 2)) (1.2) 

Beim Ausrechnen der Werte von p{8 ), p( 16) und p( 32) mit Hilfe dieser Rekursionsgleichung 
gelangt man zu der Vermutung, daß gilt: 

3 

V?r > 4 : p(n) = -n (1.3) 

Dies wird durch Induktion bewiesen. Zu beachten ist, daß nach Voraussetzung nur die 
Potenzen von 2 als Werte für n in Frage kommen. 

Sei also nun 

? 

und es gelte 

p{n) 

P(n/ 2) 

Es ist zu zeigen, daß dann auch 

P ( 2n ) = \ n 

richtig ist. Nach der Rekursionsgleichung (1.2) gilt 

p{2n) = max(3/2 * n,p(n/2) + p(n),n/2 + p(n)) 

Die Anwendung der Induktionsvoraussetzung führt zu 

p{2n) = max(3/2 * n, 3/8 * n + 3/4 * n, n/2 + 3/4 * n) 


> 4 

3 

A U 

3 

= xR 


und somit zu 


P(. 2n ) = 2 n 


was zu zeigen war. Für die Anzahl der benötigen Prozessoren gilt also 


Vn > 4 : p(n) = -n 

Da die Lösung des Problems für 

n < 4 

einfach ist, wird die Quantifizierung nicht weiter beachtet. 


Damit die Aussagen nicht nur für Zweierpotenzen, werden die Werte für s(n) und p(n) mit 
Gaußklammern versehen. Für p(n) ist dies ohne weitere Begründung problematisch. Betrachtet 
man den Algorithmus jedoch genauer, stellt man fest, daß beim ersten ausgeführten Schritt 
die meisten Prozessoren beschäftigt werden. Die Anzahl dieser Prozessoren gibt der Term in 
Gaußklammern an. □ 


1.5 Lösungen grundlegender Probleme 


In diesem Kapitel werden Algorithmen zur Lösung einiger grundlegender Probleme angegeben 
und auf ihre Komplexität hin untersucht. 


Satz 1.5.1 (Binärbaummethode) Wird das Präfixproblem (siehe Beschreibung Seite 10) da¬ 
hingehend vereinfacht, daß nur p n zu berechnen ist, so läßt sich dieses vereinfachte Problem in 

|4og(n)1 

Schritten von 



Prozessoren lösen. 
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1.5 Lösungen grundlegender Probleme 



Pn 


Abbildung 1.1: Binärbaummethode 


Beweis Verknüpfe die x t nach dem Schema in Abbildung 1.1. Falls n keine Zweierpotenz 
ist, werden die Verknüpfungen mit den Xj , für die gilt 

n < j < 2 riog(n) l , 

nicht durchgeführt. Die Lösung des Problems erfordert offensichtlich den angegebenen Aufwand. 

□ 


Folgerung 1.5.2 (Parallele Grundrechenarten) Seien n Zahlen durch die gleiche Rechen¬ 
operation miteinander zu verknüpfen. Diese Rechenoperation sei eine der Grundrechenarten 
Addition oder Multiplikation. Die Verknüpfung kann in 

riog(n)] 


Schritten von 



Prozessoren durchgeführt werden. 


Beweis Aufgrund der Assoziativität der Rechenoperationen folgt dies direkt aus Satz 1.5.1. 

□ 


Satz 1.5.3 (Parallele Matrizenmultiplikation) Sei A eine mxp-Matrix und B einepxn- 
Matrix. Sie lassen sich in 


fiogO)! +1 


Schritten von 


m * n * p 


Prozessoren miteinander multiplizieren. 


Beweis Sei C die m x n-Ergebnismatrix. Sie wird mit Hilfe der Gleichung 

p 

Ci,j — ^ ^ Q'i,kbk,j 
k=1 

berechnet. Dazu werden zuerst parallel in einem Schritt 

di,k,j •— ^i,kl^k,j 
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mit 


1 < i < m 
1 < j < n 
1 < k < p 


von 


m. * n * p 

Prozessoren berechnet. Die Ergebnismatrix erhält man dann nach der Gleichung 

p 


c i,j ~ ^2 
k= 1 

Die Berechnung der Matrix C aus den di t k,j kann nach 1.5.2 für ein Matrizenelement in 

riogwi 

Schritten von 

LU 

Prozessoren durchgeführt werden, also für die gesamte Matrix in genauso vielen Schritten von 

P I 

m * n* -J 

Prozessoren. Die Werte für Schritte und Prozessoren zusammengenommen ergeben die Behaup¬ 
tung. □ 


Zwei n x n -Matrizen lassen sich also in 

flogt»! + 1 

Schritten von 

n 3 

Prozessoren miteinander multiplizieren. 

Die Matrizenmultiplikation läßt sich asymptotisch, cl. h. für n —> oo auch mit 

0(?i 2+7 ), 7 = 0.376 

Prozessoren durchführen [CW90]. Gegenüber 1.5.3 ergibt sich wegen des erheblichen konstanten 
Aufwandes nur für große n eine Verbesserung. Es wird jeweils gesondert darauf hingewiesen, 
falls auf diese Möglichkeit zurückgegriffen wird. 
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1.5 Lösungen grundlegender Probleme 



Kapitel 2 


Grundlagen aus der Linearen 
Algebra 


In diesem Kapitel werden die für den gesamten weiteren Text wichtigen Begriffe und Sätze aus 
der Linearen Algebra behandelt. Falls in späteren Kapiteln an einzelnen Stellen weiter gehende 
Grundlagen insbesondere aus anderen Bereichen nötig sind, werden diese an den jeweiligen 
Stellen behandelt. 

Da es sich bei dem Inhalt dieses Kapitels um Grundlagen handelt, sind einige Beweise etwas 
oberflächlicher bzw. fehlen ganz. 

Literatur: 


• [MM64] Kapitel 1 und 2 

• [Dö77] Kapitel 6, 9 und 12 

• [BS87] ab Seite 148 

Im folgenden sind A und B n x n-Matrizen. Für uns reichen Betrachtungen im Körper der 
rationalen Zahlen aus. 


2.1 Matrizen und Determinanten 


In diesem Kapitel werden die grundlegendsten Begriffe über Matrizen und Determinanten auf¬ 
geführt, um eine Grundlage für den weiteren Text zu vereinbaren. 


Definition 2.1.1 A heißt invertierbar, wenn es eine Matrix B gibt, so daß 


AB = BA = E n 

In diesem Fall heißt B Inverse von A und wird auch mit 

A " 1 


bezeichnet. 


Definition 2.1.2 Falls für die Matrizen A und B gilt 

bij — 

so heißt B Transponierte von A. Für die Transponierte von A wird auch A T geschrieben. 


17 



18 


2.1 Matrizen und Determinanten 


Definition 2.1.3 


n 

tr (A) := ^ a i}i 

i—1 


heißt Spur der Matrix A. 


Definition 2.1.4 Eine bijcktive Abbildung 

/ : {1 ,..., n} —> {1,... , nj 


heißt n-Permutation. Sei 


1 < i < j < n 


Falls gilt 


/(*) > /( 3 ) 


so heißt diese Bedingung Inversion der n-Permutation. 


S n 

bezeichnet die Menge aller n-Permutationen. Zusammen mit der Konkatenation von Abbildun¬ 
gen bildet sie eine Gruppe, die symmetrische Gruppe S n . 


Definition 2.1.5 Sei / eine n-Permutation. Dann heißt 

sig (/):= II /W ~ m (2.1) 

A A l — 7 


Signatur von f. 


Die so definierte Signatur besitzt folgende Eigenschaften: 


• Es gilt 

V/ € S n : sig(/) G {i, —i} 

Aus der Permutationseigenschaft ergibt sich, daß es für jede Differenz, die als Faktor im 
Zähler von (2.1) auftaucht, eine Differenz im Nenner mit dem gleichen Betrag existiert, so 
daß der Wert des gesamten Produktes den Betrag 1 besitzt. Das Vorzeichen wird durch 
die Anzahl der Inversionen beeinflußt. 

• Falls die Anzahl der Inversionen der n-Permutation / gerade ist, so gilt 

sig (/) = 1 , 


andernfalls gilt 

sig (/) = -1 

• Die Anzahl der n-Permutationen f mit 

sig (/) = 1 , 

ist gleich der Anzahl der n-Permutationen g mit 


sig {g) = -1 • 


([Dö77] Seite 196) 
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Die Permutationen mit 
nennt man gerade, die anderen ungerade. 

Definition 2.1.6 Seien 

Sei 

det : Q " 2 -><Q 

eine Abbildung mit folgenden Eigenschaften: 


sig (/) = 1 


A,B eQ n 


Dl 


Entsteht B aus A durch Multiplikation einer Zeile mit 

r gQ 

so gilt: 

det(.B) = rdet(A) 


D2 


Enthält A zwei gleiche Zeilen, so gilt: 


det(A) = 0 


D3 


Entsteht B aus A durch Addition des r-fachen einer Zeile zu einer anderen, so gilt: 

det(B) = det(A) 


D4 

Für die Einheitsmatrix gilt: 

Dann heißt 

Determinante der Matrix A. 


det(-E„) = 1 
det(A) 


Definition 2.1.7 Die auf einer Matrix definierten Operationen 

• Vertauschung zweier Zeilen 

• Multiplikation einer Zeile mit einem Faktor 1 

• Addition des Vielfachen einer Zeile zu einer anderen 2 

werden elementare Zeilenoperationen genannt. Die entsprechenden Operationen auf Matrizen¬ 
spalten werden elementare Spaltenoperationen genannt. 


Satz 2.1.8 


m = E sig(/)ai,/(i)a 2 ,/( 2 ) 
fes n 


besitzt die Eigenschaften aus 2.1.6. 


■ a n , f ( n ) 


( 2 . 2 ) 


■vgl. Dl in 2.1.6 
2 vgl. D3 in 2.1.6 
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2.2 Der Rang einer Matrix 


Beweis Da es sich hier um Grundlagen handelt, wird der Beweis weniger ausführlich ange¬ 
geben: 

Dl 

Für jede Permutation kommt im entsprechenden Summanden in (2.2) aus jeder Zeile 
der Matrix genau ein Element als Faktor vor. Falls eine Zeile mit r multipliziert wurde, 
kann man also aus jedem Summanden r ausklammern und erhält die Behauptung. 

D2 

Seien Zeile i und Zeile j gleich (i ^ j). Berechne die Summe in (2.2) getrennt für die 
ungeraden und die geraden Permutationen. 

Die n-Permutation g vertausche i mit j und lasse alles andere gleich. Aus den Grund¬ 
lagen der Theorie der Halbgruppen und Gruppen ergibt sich, daß man die ungeraden 
n-Permutationen erhält, indem man die geraden n-Permutationen jeweils einzeln mit 
der Permutation g zusammen ausführt. 

Deshalb entsprechen sich die Summanden der beiden Teilsummen paarweise und un¬ 
terscheiden sich nur durch das Vorzeichen. Der Gesamtausdruck besitzt also den Wert 

0 . 

D3 

Es werde das r-fache von Zeile i zu Zeile j addiert. Dadurch enthält jeder Summand 
in (2.2) genau einen Faktor, der seinerseits wieder die Summe zweier Matrizenelemente 
ist. Deshalb kann man die gesamte Summe in zwei Summen aufteilen. Die eine ent¬ 
spricht genau der Summe in (2.2), die andere enthält in jedem Summanden zwei gleiche 
Faktoren, sowie den Faktor r. Diesen Faktor kann man ausklammern (mit Hilfe von 
Dl). Nach D2 ist der Wert dieser Summe dann gleich Null, und nur die andere bleibt 
übrig. 

D4 

Außer für die identische Abbildung enthält jeder Summand der entsprechenden Per¬ 
mutation in (2.2) mindestens zwei Nullen als Faktoren und ist deshalb gleich Null. Der 
Summand, der der identischen Abbildung entspricht, hat den Wert 1. 

□ 


2.2 Der Rang einer Matrix 


Zum Verständnis des weiteren Textes wird in diesem Kapitel der Begriff des Rangs einer Ma¬ 
trix eingeführt. Da dieser Begriff für die Untersuchung linearer Gleichungssysteme wichtig ist, 
werden teilweise auch nichtquadratische Matrizen betrachtet 3 . 

Da in diesem Kapitel wiederum Grundlagen aus der Linearen Algebra behandelt werden, ist 
die Darstellung auf die für uns wichtigen Aspekte beschränkt. 


Definition 2.2.1 Die maximale Anzahl linear unabängiger Spaltenvektoren einer Matrix wird 
mit Spaltenrang bezeichet. 

Die maximale Anzahl linear unabhängiger Zeilenvektoren einer Matrix wird mit Zeilenrang 
bezeichnet. 


3 Literatur: siehe 2.1 



2.2 Der Rang einer Matrix 


21 


Die folgenden Betrachtungen gelten für den Zeilenrang analog. 
Die m x n-Matrix A habe den Spaltenrang r. Es gilt also 

0 < r < n . 


Die Spaltenvektoren von A werden mit 


CL\ 5 ... 5 &n 


bezeichnet. Seien die Spaltenvektoren 


C^i i 1 • • • 5 ^ir 


linear unabhängig. Das bedeutet, aus 


d\di 1 + • • • + d r CLi. 


drd\^i 


d]_&n,ii J L drdn,i r 

d\Cli i i 1 + • • • + drCli^i 

L d\a n ^ 1 + • • • + d r a nt i r J 


= 0 * 


(2.3) 


folgt 


di = ... = d r = 0 . 


Vertauscht man zwei Elemente des Vektors (2.3), bleibt die Gültigkeit dieser Bedingung davon 
unberührt. Daraus folgt, daß die Vertauschung zweier Matrixzeilen den Spaltenrang der Matrix 
unberührt läßt. 


Ebenso verhält es sich mit der Multiplikation einer Zeile der Matrix mit einem Faktor c ^ 0. 
Analog zur Argumentation bei der Vertauschung zweier Zeilen erhält man 

I" c(diai j i 1 + • • • + d r ai t i r ) 1 


L (dia rii i 1 + • • • + d r a nt i r ) J 

Die Bedingung d\ = ... = d r = 0 bleibt durch den Faktor unberührt. 

Das gleiche Ergebnis erhält man für die Addition des Vielfachen einer Zeile zu einer anderen. 

Die elementaren Zeilenoperationen 4 lassen den Spaltenrang also unverändert. Analog verhält 
es sich mit den elementare Spaltenoperationen und dem Zeilenrang. 

Durch die Zeilen- und Spaltenoperationen läßt sich jede Matrix in Diagonalform überführen 5 , 
ohne daß dadurch der Rang verändert wird. 

Für eine Matrix, bei der nur die Elemente der Hauptdiagonalen von Null verschieden sein 
können, stimmen Zeilen- und Spaltenrang offensichtlich überein. Da die Zeilen und Spaltenope¬ 
rationen den Rang unverändert lassen, erhält man: 


Folgerung 2.2.2 Für jede Matrix stimmen Zeilen- und Spaltenrang überein. 
Aus diesem Grund ist die folgende Definition sinnvoll: 


Definition 2.2.3 Die Anzahl linear unabhängiger Spalten einer Matrix A wird als Rang von 
A bezeichnet, kurz 

rg(A) . 


4 siehe 2.1.7 

5 nicht zu verwechseln mit Diagonalisierbarkeit! 
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2.3 Lösbarkeit linearer Gleichungssysteme 


Es gilt offensichtlich: 


rg{A) < min(m, n) . 

An dieser Stelle können wir drei wichtige Begriffe zueinander in Beziehung setzen: 
Satz 2.2.4 Für eine n x n-Matrix A sind folgende Aussagen äquivalent: 


• Matrix A ist invertierbar. 

• Für die Determinante gilt: 

det(A) ^ 0 


• Für den Rang gilt: 


rg (A) = n 


Beweis Es ist zu beachten, daß jede Matrix durch elementare Zeilen- und Spaltenoperationen 
in eine Diagonalmatrix überführt werden kann, ohne daß sich die Invertierbarkeitseigenschaft, 
der Betrag der Determinante oder der Rang dadurch veränderen. Man kann also o. B. d. A. 
davon ausgehen, daß A Diagonalform besitzt. 

Durch diese Überlegung wird die Gültigkeit der Aussage offensichtlich. □ 


2.3 Lösbarkeit linearer Gleichungssysteme 


Da lineare Gleichungssysteme eine wichtige Rolle beim Verständnis noch folgender Ausführun¬ 
gen spielen, werden sie in diesem Kapitel näher betrachtet. Die nun folgenden Grundlagen 
aus der Linearen Algebra sind in der in 2.1 aufgelisteten Literatur ausführlich behandelt. Wir 
beschränken uns hier auf die für den nachfolgenden Text wichtigen Sachverhalte. 

Für die weiteren Beschreibungen drei grundlegende Begriffe aus der Linearen Algebra von Be¬ 
deutung, deren Definitionen deshalb hier angegeben sind: 

Sei K ein Körper. Eine Menge V zusammen mit zwei Verknüpfungen 

+ : VxV-^V (2.4) 

: K x V -> V , (2.5) 


die die folgenden Bedingungen erfüllt: 

• Die Menge V in Verbindung mit + ist eine Gruppe. 

• Für alle v,w £ V und alle r, s £ K gelten die Gleichungen 

(r + s)v = rv + sv 
r(v + w) = rv + rw 
( rs)v = r(sv) 
lv = V . 


wird als A'-Vektorraum bezeichnet. 


Definition 2.3.1 Eine nichtleere Teilmenge U eines Af-Vektorraumes V wird als Unterraum 
von V bezeichnet, falls gilt 

J u + v £ U 
\ ru £ U . 


Vit, v £ U, r £ K : 
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Definition 2.3.2 Die Menge aller Vektoren x, für die bei einer gegebenen m x n-Matrix A gilt 


Ax = 0„ 


( 2 . 6 ) 


wird als Kern der Matrix A , kurz ker (A), bezeichnet 6 . 


Für unsere Zwecke benötigen wir noch zwei weitere Feststellungen: 


Bemerkung 2.3.3 Betrachtet man 2.3.1, erkennt man, daß alle x, die Gleichung (2.6) erfül¬ 
len, einen Unterraum bilden. 


Der Rang einer Matrix und die Dimension von ker (A) hängen auf eine für uns wichtige Weise 
zusammen: 


Lemma 2.3.4 Sei V ein K-Vektorraum der Dimension n und W ein K-Vektorraum der Di¬ 
mension m. Sei 

f :V W 

eine lineare Abbildung mit der entsprechenden m x n-Matrix A. Dann gilt: 

rg (A) + dim (ker (A)) = dim (V) . 


Beweis Zum Beweis der obigen Gleichung wird die Dimension von ker (A) in Abhängigkeit 
vom Rang von A betrachtet. 

Die Matrix A habe den Rang r. Die maximale Anzahl linear unabhängiger Spaltenvektoren 
beträgt also r. O. B. d. A. seien die ersten r Spaltenvektoren linear unabhängig. 

Es wird in zwei Schritten gezeigt, daß in ker (A) die maximale Anzahl der linear unabhängigen 
Vektoren, also die Dimension von A, n — r beträgt. 


• Bezeichne a* den i-ten Spaltenvektor von A. Der Kern von A ist die Menge 

{x e V I Ax = o m } 

= {x G V | a\X\ + a-ix 2 + • • • + a n x n = 0 m } . 

Die Dimension dieser Menge ist die maximale Anzahl linear unabhängiger Vektoren x, 
die in ihr enthalten sind. Die Elemente eines Vektors x kann man, wie an der obigen 
Darstellung ersichtlich ist, als Faktoren in einer Linearkombination von Spaltenvektoren 
von A betrachten. Anhand der Voraussetzungen, die für die Spaltenvektoren gelten, lassen 
sich Aussagen für die Vektoren x machen. 

Da r + 1 Spaltenvektoren von A immer linear abhängig sind, ist es möglich, durch Li¬ 
nearkombination von jeweils r + 1 Spaltenvektoren den Nullvektor zu erhalten. Sind die 
übrigen n— (r+1) Spaltenvektoren nicht an einer Linearkombination beteiligt, entspricht 
das einer Null als entsprechendes Element von x. 

Es gibt n — r Möglichkeiten, zu den ersten r linear unabhängigen Spaltenvektoren von A 
genau einen weiteren auszusuchen. Aufgrund der Verteilung der Nullen in den entspre¬ 
chenden Vektoren x muß es mindestens n — r linear unabhängige Vektoren im Kern von 
A geben. 

• Angenommen, die Anzahl der linear unabhängigen Vektoren in ker (A) ist größer als n — r. 
O. B. cl. A. seien die ersten n—r dieser Vektoren so gewählt, daß bei jedem dieser Vektoren 
unter den Vektorelementen x r +i bis x n genau eines ungleich Null ist. Aus den vorangegan¬ 
genen Ausführungen folgt, daß solche Vektoren existieren müssen. Die Vektoren werden 
mit iv--|-i, ..., v n bezeichnet. Für den Vektor v t sei das z-te Vektorelement ungleich Null. 

®ln der Literatur wird häufig an dieser Stelle der Kern einer linearen Abbildung betrachtet. Da die theoreti¬ 
schen Hintergründe hier nicht von Interesse sind, ist in unser Betrachtung von Matrizen die Rede. 
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2.3 Lösbarkeit linearer Gleichungssysteme 


Da die ersten r Spaltenvektoren von A linear unabhängig sind, gibt es für die ersten r 
Elemente jedes Vektors ly keine Wahlmöglichkeit, sobald das i-te Element im Rahmen 
der Randbedingungen dem Wert nach festliegt. 

Sei w ein weiterer Vektor aus ker (A), der zu den Vektoren v linear unabhängig ist. Wird 
das j-te Element eines Vektors v t mit Vij bezeichnet, und das fc-te Element von w mit 
Wk, dann gibt es Faktoren d r + 1 , .. ., d n , so daß 

Vr + 1 < k < n : Wk = dk * i’k,k ■ 

Ebenso wie für die Vektoren v liegen damit auch die ersten r Elemente des Vektors w 
fest. Sie können anhand der obigen Beziehung aus den Elementen r+1 bis n der Vektoren 
v und w berechnet werden, sofern w überhaupt die Rahmenbedinungen erfüllt und in 
ker (H) ist. 

Damit w dennoch zu den Vektoren v linear unabhängig ist, muß es einen r + 1-ten Spal¬ 
tenvektor von A geben, der zu den ersten r Spaltenvektoren linear unabhängig ist und 
der bei der Zusammenstellung der Vektoren v mit Hilfe der Betrachtung von Linear¬ 
kombinationen (s. o.) noch nicht benutzt wurde. Dies ist jedoch im Widerspruch zu den 
Voraussetzungen. 


Somit folgt: 


rg (A) + dim(ker (H)) = r + (n — r) = n = dim(V) . 


□ 


Mit Hilfe von 2.3.3 und 2.3.4 können wir die für uns wichtigen Eigenschaften linearer Glei¬ 
chungssysteme betrachten. 

Ein lineares Gleichungssystem besteht aus n Gleichungen mit m Unbekannten: 

ai.ian + 01,2*2 4-boi,n*n = h 

^n, 1*1 4” ^n,2*2 4“ * * * 4“ Um,n*n = Gn 

Die Xi sind die zu bestimmenden Unbekannten. Betrachtet man die gegebenen Konstanten a, j 
und bi als Elemente einer Matrix bzw. eines Vektors, kann man das Gleichungssystem auch 
kompakter darstellen: 

Ax = b . 

Dabei ist A ein n x m-Matrix und b ein Vektor der Länge m. Ist b = 0 m , so bezeichnet man 
das Gleichungssystem als homogen .Ist b ^ 0 m , so bezeichnet man das Gleichungssystem als 
inhomogen . 

Uns interessieren die Lösungsmengen eines solchen Gleichungssystems. 


Satz 2.3.5 Sei V der zugrundeliegende K-Vektorraum der Dimension n. Die Lösungsmenge 
L(A, 0 m ) des homogenen Gleichungssystems 


Ax — 0 m 


ist ein Unterraum von V der Dimension 


n - rg (H) 


Beweis Die Lösungsmenge L(A, 0 m ) ist der Kern von A. Damit folgt die Behauptung aus 
2.3.3 und 2.3.4. □ 
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Ist rg (A) = n, gilt also L(A, 0 m ) = {0„}. 

Uns interessieren auch die Lösungen inhomogener Gleichungssysteme. Dazu betrachtet man die 
erweiterte Matrix [A, b ], die aus der Matrix A und dem Vektor b als n + 1-te Spalte besteht: 


Satz 2.3.6 Die Gleichung 


Ax = b . 


ist genau dann lösbar, wenn gilt 


rg(A) = rg([A,6]) 


(2.7) 

( 2 . 8 ) 


Beweis Man kann die linke Seite von (2.7) als Linearkombination von Spaltenvektoren von 
A betrachten. Die Faktoren der Linearkombination bilden die Elemente des Lösungsvektors x. 

Der Vektor b ist genau dann als Linearkombination der Spaltenvektoren von A darstellbar, 
wenn die maximale Anzahl linear unabhängiger Vektoren in A und [A, b} gleich ist. Dies ist 
gleichbedeutend mit der Gültigkeit von (2.8). □ 


Dieser Satz führt zu einer für uns bedeutsamen Charakterisierung der Lösbarkeit: 

Folgerung 2.3.7 Ist (2.7) lösbar und rg (A) = n, also n < m, dann sind die Spaltenvektoren 
von A linear unabhängig und werden alle für die Linearkombination zur Darstellung von b 
benötigt. Es gibt in diesem Fall genau einen Vektor x, der (2.7) löst. 

Ist rg (A) = m, also m < n, dann ist (2.7) für jedes b lösbar, denn es gilt allgemein 

rg(A) < rg ([A,b]) < m . 

Für rg (A) = m folgt daraus mit Hilfe der vorangegangenen Bemerkungen die Lösbarkeit. 


2.4 Das charakteristische Polynom 


Betrachtet man A als lineare Abbildung im n-dimensionalen Vektorraum, so lautet eine inter¬ 
essante Fragestellung: 

Gibt es einen Vektor x ungleich dem Nullvektor sowie einen Skalar A, so daß gilt 

Ax = Xx 1 (2-9) 


Man kann (2.9) umformen in 

(A — A E n )x = 0 . 

Dies ist eine homogenes lineares Gleichungssystem mit n Gleichungen in n Unbekannten. Aus 
2.3.5 und 2.2.4 folgt, daß es genau dann eine nichttriviale Lösung besitzt, wenn gilt 

det(A — A E n ) = 0 . 

Dies motiviert die folgende Definition: 

Definition 2.4.1 


det(A — A E n ) 

heißt 7 charakteristisches Polynom der Matrix A. Die obige Darstellung als Determinante einer 
Matrix heißt Matrizendarstellung des charakteristischen Polynoms. 

det(A — A E n ) = 0 

' Die Form det(A/v„ — A) ist in der Literatur auch gebräuchlich. Welche Form gewählt wird, hängt von 
den Vorlieben im Umgang mit den Vorzeichen ab. Bis auf die Vorzeichen bleibt die Gültigkeit von Aussagen 
unberührt. Für uns ist die in der Definition angegebene Form bequemer. 
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2A Das charakteristische Polynom 


heißt charakteristische Gleichung der Matrix A. Die Matrix 

A — X E n 

wird als charakteristische Matrix bezeichnet. 


Das charakteristische Polynom einer Matrix läßt sich auch in der Koeffizientendarstellung 


c n X n + c n —\X n 1 + • • • + CiA + Co 


( 2 . 10 ) 


angeben. 

In der Literatur sind als Vorzeichen von c,; nicht nur +, sondern auch — oder (—1)* gebräuchlich. 
Mancherorts herrscht auch die Gewohnheit, die Indizierung der Koeffizienten in der Form coA n + 
CiA™^ 1 + • • • + c n -iA + c n durchzuführen. Da diese Vielfalt der Gebräuche in der Literatur 
nicht nur auf die Koeffizientendarstellung beschränkt ist, kann es u. U. sein, daß c n sowohl 
das Vorzeichen + als auch immer den Wert 1 besitzt. In diesen Fällen wird c n auch häufig 
weggelassen. Für uns ist die gewählte Form (2.10) der Darstellung am sinnvollsten. 


Definition 2.4.2 Die Nullstellen des charakteristischen Polynoms einer Matrix heißen Eigen¬ 
werte der Matrix. Ein Vektor x der Gleichung (2.9) zusammen mit einem Eigenwert A erfüllt, 
heißt Eigenvektor. Der Nullvektor ist als Eigenvektor nicht zugelassen. 


Definition 2.4.3 Sei Xi ein Eigenwert der n x n-Matrix A. Dann wird 

rg (A) - rg (A - XiE n ) 

als Rangabfall des Eigenwertes Xi bezeichnet. 


Die Determinante und die Spur findet man unter den Koeffizienten des charakteristischen Po¬ 
lynoms wieder. Besonders für die Berechnung der Determinante ist dies eine wichtige Beobach¬ 
tung: 

Bemerkung 2.4.4 

det(A) = co 

tr(A) = (-l)"" 1 ^-! (2.11) 

Wenn p(X) das charakteristische Polynom der Matrix A ist, gilt also: 

clet(A) = p(0) . 


Rechnet man die Matrizendarstellung des charakteristischen Polynoms um in die Koeffizienten¬ 
darstellung, wird dabei die Gültigkeit von (2.11) deutlich. Der Wert von c„_i wird nur durch 
die Matrixelemente in der Hauptdiagonalen beeinflußt. Das Produkt dieser Elemente besteht 
aus n Linearfaktoren der Form 

A . 

Berechnet man den Wert dieses Produktes, so wird c n durch alle Summanden der Form 

(-1 ) n - 1 a . M A n - 1 


beeinflußt. Insgesamt gilt also 


c n -1 = (-l) n 1 ^Z a üi > 

i—1 


so daß man mit (2.11) die Spur erhält. 


Ein Algorithmus zur Berechnung der Koeffizienten des charakteristischen Polynoms einer Ma¬ 
trix berechnet somit u. a. auch deren Determinante und deren Spur. 



Kapitel 3 


Die Algorithmen von Csanky 


In diesem Kapitel werden zwei von L. Csanky 1 vorgeschlagene Algorithmen behandelt. Der erste 
davon verwendet eine relativ bekannte Methode zur Determinantenberechnung 2 . Die Effizienz 
dieser Methode ist jedoch nicht befriedigend. Ihre Darstellung ist als Einstieg gedacht. 


3.1 Die Stirling’schen Ungleichungen 


Als Vorarbeit für den ersten Algorithmus werden in diesem Unterkapitel weitere Grundlagen 
behandelt. 

Satz 3.1.1 (Stirling’sche Ungleichungen) Sei 





n € IN 


Dann gilt 

n\ 

> 

/- fn\ n i 

V27rn — e 12r *+ 1 

V e / 

(3.1) 


n! 

< 

/- — fn\ n i 

V27t n — e 12 " 

V e / 

(3.2) 

Beweis 

Die Ungleichungen folgen 

aus 

[vM67] S. 154. 

□ 


Die Ungleichungen werden in den folgenden Lemmata angewendet. Die Richtung der Abschä¬ 
tzung der jeweiligen Werte wird durch deren Verwendung im späteren Text bestimmt. 

Lemma 3.1.2 

vty ~ 


Beweis Es soll nach unten abgeschätzt werden. Deshalb wird der Zähler mit Hilfe von (3.1) 
und der Nenner mit Hilfe von (3.2) abgeschätzt. Man erhält: 


> 


(?) 

\/2nn (g)” e 12 "+ 1 


(t) 


— \ 2 _L 
7T71 I A e 6" 


(3.3) 


1 [Csa74] und [Csa76] 

2 Entwicklungssatz von Laplace 


27 
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3.2 Der Entwicklungssatz von Laplace 


> 


> 



e (12n+l)6n 



e 


(3.4) 


□ 


Auf die gleiche Weise, wie im vorangegangenen Lemma 3.1.3 eine Abschätzung nach unten 
erfolgt, erhält man eine Abschätzung von 



nach oben: 


Lemma 3.1.3 


Beweis Aus (3.1) folgt: 


Also gilt: 



< n — 


log(f)+l 

2 



(3.5) 


(3.6) 


Bildet man nun auf beiden Seiten der Ungleichungskette den Logarithmus, erhält man mit Hilfe 
einiger Logarithmengesetze 



2 < n 


log(f)+l 

2 


□ 


3.2 Der Entwicklungssatz von Laplace 

Für den ersten im Kapitel 3 darzustellenden Algorithmus wird ein bekannter Satz verwendet. 
Er wird in diesem Unterkapitel zusammen mit einer häufig benutzten Folgerung dargestellt. 


Satz 3.2.1 (Entwicklungssatz von Laplace) Sei k eine natürliche Zahl mit 

1 < k<n -1 


Sei D n die Determinante der Matrix A. 

Für die natürliche Zahl i gelte 

1 < i < 
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Sei D^ 1 ^ die Determinante einer Untermatrix A^ 1 1 ' ) von A, die aus k Spalten der ersten k 
Zeilen gebildet werde, von A, die aus den für A j, 2 * ^ nicht gewählten n — k Zeilen und Spalten 
gebildet werde. 


Für jedes i werde eine andere der 



möglichen Auswahlen für die k Spalten für A( 2l ^ getroffen. 


Für eine Untermatrix 


A 




bezeichne 


/( 4 2i_1) ) 


die n-Permutation, die die Spalten von A so vertauscht, daß A j, 2 * ^ aus den ersten k und A^ k 
aus den weiteren n — k Zeilen und Spalten von A besteht. 


Dann gilt: 


D n = sig(f(A{))DlD 2 n _ k +sig(f{Al))DlD*_ k + -- - + sig (f k ^ ^ 




(3.7) 


Beweis (vergl. [Csa74] Seite 21) Es ist zu zeigen, daß die Berechnung der Determinante 
nach (3.7) mit der Berechnung nach (2.2) übereinstimmt. 

Die einzelnen Determinanten in (3.7) werden auf die in (2.2) angegebene Weise berechnet. Dazu 
ist zu beachten, daß S n genau n! Elemente besitzt. Es genügt zu zeigen, daß in (3.7) ebenso viele 
Permutationen auf die Indizes von 1 bis n angewendet werden und alle voneinander verschieden 
sind. 

Berechnet man einen Summanden 

in (3.7) anhand von (2.2), kann man die zwei Summen durch Ausmultiplizieren zu einer zusam¬ 
menfassen. Den kl Permutationen zur Berechnung von D k ^ und den (n — k)\ Permutationen 
zur Berechnung von D <2 f k entsprechen 


k\ (n — k)\ 

n-Permutationen zur Berechnung der zusammengefaßten Summen für diesen einen Summanden. 
Die Menge dieser n-Permutationen wird mit Ali bezeichnet. 

Die fc-Permutationen bzw. (n — fc)-Permutationen zur Berechnung aller Determinanten D k und 
D n - k werden jeweils auf verschiedene Mengen von Indizes angewendet, cl. h. für zwei beliebige 
dieser Mengen von Indizes gibt es in der einen mindestens einen Index, der in der anderen nicht 
enthalten ist. Das bedeutet, daß alle Mengen Af voneinander verschieden sind. 

Die Anzahl der Mengen Mi, die man auf diese Weise für (3.7) erhält, beträgt 

n 
k 


Ihre Vereinigung ergibt eine Menge mit 



k)\ 


also 


n! 


Elementen, was zu zeigen war. 


□ 
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3.3 Determinantenberechnung durch ’Divide and Conquer’ 


Aus diesem Satz erhält man mit k = 1: 


Folgerung 3.2.2 (Zeilen- und Spaltenentwicklung) Seien 

1 < p < n 


und 


1 < q < n 

beliebig. Dann gilt die Entwicklung nach Zeile p 


det(A) = ^(-l) p+J a PiJ det(A (pb) ) 
i= i 

und die Entwicklung nach Spalte q 

n 

det(A) = ^(-l) l+9 a iig det(A ( ,;| 9) ) 

i—1 


3.3 Determinantenberechnung durch ’Divide and Conquer’ 


Der Algorithmus ([Csa74] S. 21 ff.), der hier betrachtet wird, berechnet die Determinante rekur¬ 
siv mit Hilfe der Methode Divide and Conquer, cl. h. durch die Berechnung der Determinanten 
von Untermatrizen der gegebenen Matrix. 


Da es sich hierbei nur um ein einleitendes Beispiel handelt, wird zur Vereinfachung angenommen, 
daß die Anzahl der Zeilen und Spalten n der Matrix eine Zweierpotenz ist. Falls dies nicht der 
Fall ist, wird sie um entsprechend viele Zeilen und Spalten erweitert, so daß die neuen Elemente 
der Hauptdiagonalen jeweils gleich 1 und alle weiteren neuen Elemente jeweils gleich 0 sind. 


Zur rekursiven Berechnung der Determinate wird Satz 3.2.1 benutzt. Man wählt 



Somit gilt auch 


n — k = -n . 
2 


Die Anzahl der Schritte, die der Algorithmus benötigt, um mit Hilfe dieses Satzes die Determi¬ 
nante einer n x n-Matrix zu berechnen, wird mit 

s(n) 

bezeichnet. Die Anzahl der Prozessoren, die dabei beschäftigt werden, wird mit 

P{n) 


bezeichnet. 


Bei der Berechnung wird Gleichung (3.7) rekursiv ausgewertet. Das führt dazu, daß 



Determinanten von Untermatrizen zu berechnen sind. Die Berechnung einer Determinanten 
erfordert 



Schritte und 
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Prozessoren. 

Aus 1.5.2 folgt, daß die in (3.7) auftretenden Additionen in 



Schritten von 

(i) 

2 

Prozessoren erledigt werden können. Die Multiplikationen können in einem Schritt von ebenfalls 

( 5 ) 

2 

Prozessoren durchgeführt werden. Also gilt für die Anzahl der Schritte, die der Algorithmus 
benötigt, folgende Rekursionsgleichung: 

(0 : n =1 

S(n) = \ s (f )+ 1 + 1 °g(l) : «>! 

Mit 3.1.3 folgt 

s(n) < s (-J + 1 + n -^- 

Das ist äquivalent zu 

/x /n\ _ log(rc) 

s(n) < +l + n -— 

Die Auflösung der Rekursion ergibt: 

log(n) _ log(n) 

s(n) < log(n) + V 7 - 2 £ l° g (?) 

j =l J k =l 

Man kann nun die folgenden Abschätzungen vornehmen: 


und 


log(n 


1 


1=1 J 


1+ ^ + 3 


1 

log(n) 


log(ra) 


< 1 


— dx 
x 


= [ln(a;)] 1 L og ^ = 1 + ln(log(n)) 

< 1 + log(log(n)) 


log(n) log(n) 

^2 log (k) < ^ log(log(n)) = log(n) log(log(n)) 

k=l k=1 

und kommt so in Verbindung mit einigen Logarithmengesetzen auf 

s(n) < log(n) + n(l + |"log(log(n))]) - ^ log 2 (n) + log(n) |"log(log(u))] 


Also gilt 


s(n) = 0(n log(log(n))) 

Für die Anzahl der beschäftigten Prozessoren gilt 


p(n) = < 



n = 1 
n = 2 

sonst 
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3.4 Die Linearfaktorendarstellung 


Bei diesem Beispielalgorithmus interessiert uns nur die Größenordnung der Anzahl beschäftigter 
Prozessoren. Deshalb wird diese Anzahl grob nach unten abgeschätzt durch 


p{n) > 


Mit 3.1.2 folgt 


p(n) > 


Da nach unten abgeschätzt wurde, folgt aus dieser Ungleichung 


P( n ) = 


Die Anzahl der Prozessoren ist also von exponentieller Größenordnung. 

Es wird sich bei den noch zu betrachtenden Algorithmen zeigen, daß sowohl für die Anzahl der 
Schritte als auch für die Anzahl der beschäftigten Prozessoren deutlich bessere Werte möglich 
sind. 


3.4 Die Linearfaktorendarstellung 


In diesem Unterkapitel werden einige Aussagen behandelt, die sich in Verbindung mit einer 
weiteren Darstellungsmöglichkeit für das charakteristische Polynom ergeben. Diese Aussagen 
werden für den Beweis des Satzes von Frame (siehe 3.7) benötigt. Literatur dazu ist bereits in 
Kapitel 2 aufgelistet. 

Neben der Matrizendarstellung und der Koeffizientendarstellung gibt es noch eine dritte für 
uns wichtige Darstellung für das charakteristische Polynom, die Linearfaktorendarstellung. Ein 
Polynom ?r-ten Grades kann man auch als Produkt von n Linearfaktoren darstellen, so daß das 
charakteristische Polynom folgendes Aussehen bekommt: 

(A 1 -A)(A 2 -A)...(A n -A) (3.8) 

Dabei sind die Xi die Eigenwerte der zugrunde liegenden n x n-Matrix. Sie sind nicht paarweise 
verschieden. Diese Tatsache führt uns zum Begriff der Vielfachheit. Man kann in der obigen 
Linearfaktorendarstellung gleiche Faktoren mit Hilfe von Potenzen beschreiben. Dazu gelte 

k € IN, 1 < k < n . 


Die Eigenwerte seien 

Ai,A',...,A' fc , 

jedoch alle paarweise voneinander verschieden. So bekommt (3.8) folgendes Aussehen: 

(Ai - A) m(A 'i ) (A , 2 - A) m(A ^ ... (A' fc - A) m(A ^ 

In dieser Darstellung wird m(A') mit Vielfachheit des Eigenwertes A' bezeichnet. 

Die n Eigenwerte einer n x n-Matrix besitzen zur Determinante und zur Spur jeweils eine 
wichtige Beziehung, welche in den nächsten beiden Sätzen dargestellt wird: 

Satz 3.4.1 


det(A) = A, 

i=1 

Beweis Die Gültigkeit der Behauptung wird bei Betrachtung der Berechnung der Koeffizien¬ 
tendarstellung des charakteristischen Polynoms aus dessen Linearfaktorendarstellung deutlich. 
Beim Ausmultiplizieren der Linearfaktoren wird der Wert von co nur durch das Produkt der 
Eigenwerte beeinflußt. □ 
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Satz 3.4.2 


tr (A) =J2 Xi 

i=1 


Beweis Betrachtet man die Berechnung der Koeffizientendarstellung des charakteristischen 
Polynoms aus dessen Linearfaktorendarstellung durch Ausmultiplizieren, erkennt man, daß gilt: 

n 

Cn—l = (-1 ) n ” 1 Y, • 

i—1 


Mit 2.4.4 folgt daraus die Behauptung. 


□ 


Die Eigenwerte besitzen weiterhin folgende interessante Eigenschaft: 


Satz 3.4.3 Seien Ai, A2, ..., X n die Eigenwerte der n x n-Matrix A. Sei k € IN. Dann gilt: 

\k \k \k 

A 1 j •* * 5 A n 

sind die Eigenwerte von A k . 


Beweis Ein Skalar A ist genau dann Eigenwert von A, wenn es einen Vektor x ^ 0 n gibt, 
so daß gilt 3 

Ax = Xx . (3-9) 

Mit Hilfe dieser Beziehung wird die Behauptung per Induktion bewiesen. 

Nach Voraussetzung ist die Behauptung für k = 1 erfüllt. Es gelte also nun 

VA = Ai,...,A„3a;: A k x = X k x . 

Zu zeigen ist, daß dann auch gilt 

VA = Ai, ..., X n 3x : A k+1 x = X k+1 x 
Diese Gleichung kann man umformen in 

VA = Ai, ..., X n 3x : A k Ax y =X k J^x y 

(*) (*) 

Nach Voraussetzung sind die Terme (*) gleich. Sie werden mit y bezeichnet. Die Gleichung 
bekommt dann folgendes Aussehen: 

VA = Ai,... , X n 3y : A k y = X k y 

Dies ist wiederum nach Voraussetzung richtig. □ 


Aus diesem Satz ergibt sich mit Hilfe von 3.4.2 eine für uns wichtige Beziehung: 

Folgerung 3.4.4 


tr(A fc )=^A.f 

i=1 


3 vgl. Erläuterungen auf S. 25 
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3.5 Die Newton’schen Gleichungen für Potenzsummen 


3.5 Die Newton’schen Gleichungen für Potenzsummen 


Mit den Newton’schen Gleichungen für Potenzsummen werden in diesem Unterkapitel weitere 
Grundlagen für den Beweis der Sätze von Frame (siehe 3.7) behandelt. Die gesamten Hinter¬ 
gründe für diese Gleichungen werden z. B. in [Hau52] (Kapitel 7 und 8 ) behandelt. 

Eine Potenzsumme ist eine Summe von Potenzen einer oder mehrerer Unbestimmter. Auf Seite 
4.6.1 sind weitere Beispiele für einfachere Potenzsummengleichungen zu finden. 

Da uns diese Gleichungen im Zusammenhang mit dem charakteristischen Polynom einer Matrix 
interessieren, werden sie anhand dieses Polynoms entwickelt. Dazu werden folgende Vereinba¬ 
rungen getroffen: 


• Das charakteristische Polynom der n x n-Matrix A sei 

p(X) := c„A" A c„_iA n 1 + • • • + CiA + cq ■ 

• Die erste Ableitung von p{ A) wird mit 


p'( A) 


bezeichnet. 

• Die Eigenwerte von A seien 

Ai, A2,■ • •,A„ . 

Es wird definiert 

n 

s k -.= Y, x i • 

2=1 

Zunächst beschäftigen wir uns mit der Polynomdivision. Sei dazu ein i mit 1 < i < n gegeben. 
Da Xi Eigenwert von A und somit Nullstelle von p( A) ist, läßt sich p(X) ohne Rest durch 

A* - A 

teilen. Das Ergebnis ist ein Polynom vom Grad n — 1. Das folgende Lemma liefert eine Aussage 
über dessen Koeffizienten: 


Lemma 3.5.1 


Gegeben sei die Gleichung: 

pW 


— c n —\X n 1 + c n - 2 A" “ + ... + CiA A cq 


n —2 


(A,: - A) 


Dann gilt für 1 < k < n — 1; 


n—k 

— — 'y ' xj Ck+j 
j =1 


(3.10) 


(3.11) 


Beweis Multipliziert man beide Seiten von Gleichung (3.10) mit 

(Ai - A) 

und multipliziert die rechte Seite der so gewonnenen Gleichung aus, ergibt sich: 

CnX n + c n _iA" + • • • + Ci A + Co 

— Cn-lA A (AiCn —1 C n — 2 )A A (AiCn —2 C n —ß)A A * * * A (AiCi Co)A A AiCo 

Setzt man 

Cn C_ 1 0 , 
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erhält man durch Koeffizientenvergleich: 


VI V l V U ■ Ufc — A iCk Ck —1 
<f=> VI < l < n : Ci-i = XiCi — Ci 


(3.12) 


Gleichung (3.11) wird durch Induktion 4 bewiesen. Für k = n — 1 folgt die Gültigkeit von (3.11) 
aus (3.12). 

Gelte (3.11) also nun für k = l. Es ist zu zeigen, daß die Gleichung dann auch für k = l — l gilt: 

n —{ l — 1) 

ci-i = - *rVi+i 

3=1 

Zieht man q aus der Summe heraus und indiziert neu, erhält man: 

n—l 

Cl-1 = ~ c i -J2 K c i+j 
1=1 

Zieht man nun noch A; aus der Summe heraus, erhält man: 

n—l 

Q — 1 — C[ Xi ^ ^ 

3 =1 

Nach InduktionsVoraussetzung ist dies gleichbedeutend mit: 

ci-l = —Cl + XiCi 

Die Gültigkeit dieser Gleichung folgt aus (3.12). □ 

Eine an dieser Stelle wichtige Regel für das Differenzieren lautet ([Hau52] S. 160): 

Bemerkung 3.5.2 Seien 

gi(x),g2(x),...,g n (x) 

auf einem Intervall I differenzierbare Funktionen. Es gelte 


f( x ) = Y[gi(x ) • 

i =1 

Dann ist auch f(x) auf I differenzierbar mit 

n 

f(x) = '^2g 1 {x)g 2 (x) ■ ■ ■ g i -i(x)g' i (x)g l+1 (x) ■ ■ ■ g n -i(x)g n (x) . 


Falls gilt 

Va; € 1 ,1 < i < n : gfx) ^ 0 , 
läßt sich diese Regel auch einfacher formulieren: 


m = E SpKx) 


i— 1 


gi(x)‘ 


Betrachtet man das charakteristische Polynom p(X) in Linearfaktorendarstellung und beachtet, 
daß die Ableitung von 

(A - A) 

—1 ergibt, dann erhält man mit Hilfe von 3.5.2: 

4 Um die Art und Weise, wie die Koeffizienten der Polynome indiziert sind, einheitlich zu halten, verläuft die 
Induktion etwas ungewohnt. 
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3.5 Die Newton’schen Gleichungen für Potenzsummen 


Folgerung 3.5.3 


p'( A) 


y- pW 

k ^ - A ) 


(3.13) 


Mit Hilfe von 3.5.1 und 3.5.3 erhält man nun die gesuchten Gleichungen ([Hau52] S. 181): 


Satz 3.5.4 (Newton’sche Gleichungen für Potenzsummen) 

Für die Koeffizienten des charakteristischen Polynoms gilt 5 : 

n—k 

VO < k < n — 1 : — (n — (k + l))c k +i — Sj-iCk+j = 0 

1=2 

Beweis Die c k aus Lemma 3.5.1 sind abhängig vom gewählten A^. Deshalb definieren wir 
diese Koeffizienten als Funktionen von 


n—k 

c k {K) ■■= -^\ 3 ~ l c k+j . 
1=1 


Dann folgt aus Lemma 3.5.1: 


Ck := 


n n—k 

y ' ck(Xj) = — y ( sj-iCk+j . 

i=i 1=i 


(3.14) 


Überträgt man diese Beziehung zwischen den Koeffizienten auf die entsprechenden Polynome 
erhält man: 


E 


pW 

Ai-A 


E^ Afc 

k=0 


(3.15) 


Die erste Ableitung des charakteristischen Polynoms in der Koeffizientendarstellung sieht fol¬ 
gendermaßen aus: 


p'W = nc n X n 1 + (n — l)c n _iA" 2 + • • • + 2 C 2 A + Ci (3.16) 

Aus den drei Gleichungen (3.13), (3.15) und (3.16) folgt: 

n— 1 

— ^ CfcA fc = nc n A" -1 + (n — l)c„_iA n-2 + • • • + 2c 2 A + C\ 
k =o 


Durch Koeffizientenvergleich erhält man aus dieser Gleichung: 


VO < k < n — 1 : — c k = (k + l)cfc + i 


Setzt man für Cj den entsprechenden Term aus Gleichung (3.14) ein, ergibt sich: 


n—k 

VO < k < n — 1 : Sj-\c k +j = (k + l)cfc+i 

l=i 

n—k 

<t=> VO < k < n — 1 : nc k +i + Sj-\c k +j = (k + l)cfc+i 

1=2 

n—k 

<t=> VO < k < n — 1 : (n — (k + l))cfe+i + E Sj-iCk+j — 0 

1=2 


□ 


3 Die Terme Si sind am Beginn des Unterkapitels definiert. 
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3.6 Die Adjunkte einer Matrix 


Bei den Beweisen des Satzes von Frame in Unterkapitel 3.7 spielt die Adjunkte einer Matrix 
eine bedeutende Rolle und wird deshalb hier behandelt. 


Definition 3.6.1 Sei A eine n x n-Matrix. Erhält man die Matrix B aus der Matrix A nach 

bij := (— 1 ; det (. b, ! , 

so heißt B Adjunkte der Matrix A. Die Adjunkte wird mit 

adj (A) 


bezeichnet. 


Zum Beweis einer uns besonders interessierenden Eigenschaft der Adjunkten benötigen wir 
zunächst noch ein Lemma. Es behandelt den Fall einer Zeilen- bzw. Spaltenentwicklung 6 , bei 
der jedoch als Faktoren für die Unterdeterminanten die Matrizenelemente nicht aus der Zeile 
bzw. Spalte entnommen werden, nach der die Determinante entwickelt wird: 


Lemma 3.6.2 Seien 


und 


mit 


und 


Dann gilt: 


und 


1 < p,p' < n 
1 < q, q' < n 

p^p' 

q^q’ 


^(-l) p+J a p / ;j det(A (pb) ) = 0 

3 =1 

n 

^(-1 Y +q a z y det(A (i | g) ) = 0 

i=l 


Beweis Betrachtet man die Berechnung der Unterdeterminanten in den obigen Gleichungen 
nach (2.2), erkennt man beim Vergleich mit der Berechnung der Determinante einer Matrix, die 
zwei gleiche Zeilen enthält, daß die Terme beider Berechnungen nach einigen Vereinfachungen 
übereinstimmen. Nach Satz 2.1.8 ist die Determinante in diesem Fall gleich 0. □ 


Mit Hilfe von 3.6.2 erhalten wir nun: 


Satz 3.6.3 


6 vgl. 3.2.2 


A * adj (A) = E n * det(A) 
adj (A) * A = E n * det(A) 


(3.17) 

(3.18) 
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3.7 Der Satz von Frame 


Beweis Spalte k der Matrix adj (A) sieht so aus: 

(— 1) 1+fe det (^4 (fc | 1} ) 
(-l) 2+fc det(A (fe | 2) ) 

_ (-l) n+k det(A (kH ) _ 

Das Element an der Stelle ( i , k) der Produktmatrix 

A * adj (A) 


ist also gleich 

n 

y +k A(kw 

j =i 


Dies ist nach 3.2.2 gleich det(A) für 
und nach 3.6.2 gleich 0 für 


i = k 


i ytz k 

Daraus folgt die Gültigkeit von (3.17). Die Argumentation für (3.18) verläuft analog. 


□ 


3.7 Der Satz von Frame 


In diesem Unterkapitel wird eine Methode von J. S. Frame ([Fra49]; [Dwy51] S. 225-235) 
vorgestellt' , die es u. a. erlaubt, die Determinante einer Matrix zu berechnen. Diese Methode 
ist im wesentlichen eine Neuentdeckung der Methode von Leverrier aus dem 19. Jahrhundert zur 
Bestimmung der Koeffizienten des charakteristischen Polynoms (z. B. [Hou64] S. 166 ff. ). Die 
Darstellung wird hier auf die Teile beschränkt, die für die Determinantenberechnung wichtig 
sind. 


Die Acljunkte von 


A — X E n 


(3.19) 


besteht aus lauter Determinanten von (n — 1) x (?r — 1)-Matrizen. Sie kann deshalb durch ein 
Polynom vom Grad n — 1 dargestellt werden (siehe dazu auch 2.4.1 und 3.6.1). Dies motiviert 
die folgende Vereinbarung zusätzlich zu den in 3.5 aufgeführten Bezeichnungen: 


Seien 


Bi , 0 < * < n — 1 

geeignet gewählte n x n-Matrizen. Dann bezeichnet 

c(A) := 5„_!A"- 1 + ß„_ 2 X n ~ 2 + ■ ■ ■ + B 2 A 2 + B x A + B 0 . 


die Acljunkte von (3.19). 


Lemma 3.7.1 


B n -1 — (—l)-EVi 

Vn — 2 > i > 0 : Bi = AB i+ \ — c i+ iE n 

' Die Originalveröffentlichung [Fra49] enthält keinen Beweis. Dieser Beweis ist schwer zu bekommen. Er wird 
hier deshalb frei nachvollzogen und dürfte sich vom Original nicht wesentlich unterscheiden. In diesem Zu¬ 
sammenhang möchte ich mich bei R. T. Bumby für seinen Hinweis auf die Newton’schen Gleichungen für 
Potenzsummen bedanken. 
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Beweis Aus Satz 3.6.3 in Verbindung mit Definition 2.4.1 folgt: 

(A - XE n )c(X) = p(X)E n 

Setzt man die Koeffizientendarstellungen von c(A) und p(X) in diese Gleichung ein, erhält man 

(A - XE n )(B n -iX n ~ 1 + B n _ 2 X n ~ 2 + • • • + B 2 X 2 + B x X + B 0 ) 

= (c n X n + c„_iA" 1 + • • • + C 2 A“ + ciA + c 0 )E n 
^ AB n _ x X n ~ x + A5 „_ 2 A ”- 2 + • • • + AB 2 X 2 + AB 1 X + AB 0 

- B n _ iA n - ß„_ 2 A "- 1 - B 2 A 3 - B 1 X 2 - B 0 X 

= ( c n X n + c„_iA" 1 + • • • + c 2 A“ + ciA + co)E n 
& - B n _ iA" + (Aßn-i - B n _ 2 )X n ~ 1 + {AB n - 2 - B n _ 3 )X n ~ 2 + ■■■ 

+ ( AB 2 - Bl)X 2 + (AB! - Bo)X 

= (c n X n + c„_iA n 1 + • • • + c 2 A" + ciA + co)E n 
Koeffizientenvergleich ergibt die Behauptung. □ 

Lemma 3.7.2 Es gilt 8 

p'(X) = -tr(c(A)) . 

Beweis Zu zeigen ist: 

n l n \ 

Aj_1 = - tr 

1=1 \j—l ) 

Durch Koeffizientenvergleich erhält man: 

VI < j < n : jcj = -tr (Bj-i) 

Durch wiederholte Anwendung von 3.7.1 ergibt sich daraus: 

jcj = — tr (ABj — CjE n ) 

<<=> (n — j)cj = tr (ABj) 

(n - j)cj = tr (A(AB j+1 - c j+ iE n )) 

n—j — l 

O (n - j)cj = tr (A n ~ J B n -i) — ^ tr (A k )cj+ k 

k =1 
n—j — l 

O (n — j)cj = -tr (A n ~ J ) - ^ tr (A k )cj+ k 

k=l 
n—j — l 

^(n-j)cj = -tr (A n ~ J ) - ^2 tT(A k )cj+ k 

k =1 

Nach 3.4.4 ist dies gleichbedeutend mit 

n—j—l 

(ri j)Cj ~\~ Sn—j d" ^ ^ SkCj-\-k — 0 
k =1 

Da für das charakteristische Polynom c n = 1 gilt, ist diese Gleichung nach Satz 3.5.4 richtig. 

□ 

8 Da in dieser Arbeit verschiedene Arten von hoch und tiefgestellten Indizes und Markierungen verwendet 
werden, sei hiermit exiplizit darauf hingewiesen, daß mit p'(X) ,wie allgemein üblich, die erste Ableitung von 
p(X) gemeint ist. 



40 


3.8 Determinantenberechnung mit Hilfe des Satzes von Frame 


Lemma 3.7.3 

VI < * < n : Ci = -tr (ABA 

n — i 

Beweis Wie in 3.7.1 folgt zunächst aus 3.6.3 in Verbindung mit Definition 2.4.1: 

(■A - XE n )c(X) = p(X)E n 
<t=> Ac(A) — Ac(A) = p(X)E n 
<t=> tr (Ac(A)) = tr (Ac(A)) + tr (p(X)E n ) 

Mit Hilfe von 3.7.2 folgt: 

tr (Ac(A)) = np(X) — Xp'(X) 

^ tr (AB n _ 1 X n ~ 1 + AB n _ 2 X n ~ 2 + • • • + AB 2 A 2 + AB 1 X + AB 0 ) 

= n(X n c n + c n _iA” 1 + • • • + c 2 A 2 + ciA + co) 

- (n\ n c n + (n - l)c„_iA n ^ 1 H-1- 2c 2 A 2 + CiA) 

Koeffizientenvergleich ergibt 

VI < i < n : tr (ABA) = nci — ici . 

□ 


Satz 3.7.4 (Frame) 


clet(H) = 


tr (AB 0 ) 


Beweis Man erhält die Behauptung aus 3.7.1, 3.7.3 und 2.4.4. 


(3.20) 

□ 


3.8 Determinantenberechnung mit Hilfe des Satzes von 
Frame 


In diesem Unterkapitel wird eine effiziente Methode zur parallelen Determinantenberechnung 
[Csa76] vorgestellt (abgekürzt mit C-Alg.\ vgl. Unterkapitel 1.3). Sie benutzt Divisionen und 
kann deshalb nur angewendet werden, wenn die Berechnungen in einem Körper stattfinden. Dies 
ist problematisch, weil in realen Rechnern nur mit begrenzter Genauigkeit gearbeitet werden 
kann und somit immer auf die eine oder andere Weise modulo gerechnet wird. Z. B. besitzt 6 
im Ring 2g kein multiplikatives Inverses. 

Dies motiviert den Entwurf von Algorithmen, die ohne Divisionen auskommen, und somit auch 
in Ringen anwendbar sind, wie BGH-Alg. und B-Alg. . P-Alg. benutzt wie C-Alg. ebenfalls 
Divisionen. 

Die Determinantenberechnung erfolgt in dem Algorithmus, der in diesem Unterkapitel vorge¬ 
stellt wird, mit Hilfe des Satzes von Frame (Satz 3.7.4). Der Satz nutzt die bereits in 2.4.4 
erwähnte Tatsache aus, daß sich unter den Koeffizienten des charakteristischen Polynoms auch 
die Determiante befindet. Diese Eigenschaft des charakteristischen Polynoms wird auch in B- 
Alg. und P-Alg. in Verbindung mit anderen Verfahren zur Bestimmung der Koeffizienten ver¬ 
wendet. 

Die Berechnung der Determinante nach Satz 3.7.4 erfolgt mit Hilfe einer Rekursionsgleichung. 
Für eine effiziente parallele Berechnung ist dies nicht befriedigend. Deshalb ist sind einige Um¬ 
formungen [Csa76] erforderlich. Für diese Umformungen wird ein Operator benötigt. Dazu seien 
M und N jeweils n x n-Matrizen: 
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Definition 3.8.1 Der Operator T wird definiert durch: 

TN ■- tr (N) 


Er wird Spuroperator genannt. 


Es gilt also 


(E + MT)N = N + MTN = N + M tr (IV) . 


Für die Determinantenberechnung nach Satz 3.7.4 ist die dort auftretende Matrix Bq zu be¬ 
rechnen. Mit Hilfe der Lemmata 3.7.1 und 3.7.2 sowie des soeben definierten Operators T erhält 
diese Berechnung folgendes Aussehen: 


Bq — AB\ — C\E n 
E„ 


AB X -—tr (ABA 

n — 1 


= E n - 


En 


n — 1" 


T ABi 


= En- 


En 


n — 1 


T \ < A 


En — 


En 


n — 2 


T {A [■"(£„ - E n T){A[E n \} ■ ■ ■}} 


Mit Hilfe der Assoziativität der Matrizenmultiplikation erhält man: 


( 


Bq = 


A - 


Term 1 
'~E~' 


Term 2 




n — 1 


TA 


V 


Term 3 


-— -TA^j ■■■(a- jTA^J (A - ETA) (3.21) 


J 


Da E n nur in der Hauptdiagonalen von 0 verschiedene Elemente besitzt, läßt sich Term 1 in 
einem Schritt von 


Prozessoren berechnen. Parallel dazu läßt sich Term 2 nach Satz 1.5.2 in 


Schritten von 


Prozessoren berechnen. 


|"log(n)] 

n 
.2 


Anschließend ist die Ergebnismatrix von Term 1 mit dem Ergebnis von Term 2 zu multiplizieren. 
Dies kann, wie bei der Berechnung von Term 1 in einem Schritt von 


n 

Prozessoren durchgeführt werden. Die darauf folgende Matrizensubtraktion zur Berechnung von 
Term 3 kann in einem Schritt von 


Prozessoren erledigt werden. 

Insgesamt kann Term 3 also in 

|"log(n)"| + 2 

Schritten von 


Prozessoren berechnet werden. 
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3.8 Determinantenberechnung mit Hilfe des Satzes von Frame 


Zur Berechnung von Bq sind n Terme auf die gleiche Weise wie Term 3 zu berechnen. Term 2 
braucht für all diese Terme nur einmal berechnet zu werden. Insgesamt kann die Berechnung 
der n Terme in 


riog(n)] + 2 


Schritten von 


Prozessoren erledigt werden. 

Um das Endergebnis Bq zu erhalten sind schließlich noch die Ergebnismatrizen der n Terme 
miteinander zu multiplizieren. Die Anzahl der Schritte und Prozessoren dafür folgt aus den 
Sätzen 1.5.1 und 1.5.3. Zu beachten ist dabei, daß eine Verknüpfung nicht in einem Schritt von 
einem Prozessor durchgeführt wird, sondern nach 1.5.3 in 

|4og(n)l + 1 


Schritten von 

n 3 

Prozessoren. Deshalb werden diese Matrizenmultiplikationen in 

(flog(n)l +1) |"log(n)~| 

Schritten von 

n 3 

Prozessoren durchgeführt. 

Insgesamt wird die Berechnung von Bq also in 

riog(n)] 2 + 2|"log(n)] +2 

Schritten von 

Prozessoren durchgeführt. 

Um die Determinante zu berechnen, sind noch nacheinander durchzuführen: 


1. eine Matrizenmultiplikation nach Satz 1.5.3 in 

|"log(n)l +1 


Schritten von 


2 . 


Prozessoren, 

die Berechnung der Spur 9 einer Matrix nach Satz 1.5.1 in 

riog(n)] 


Schritten von 



Prozessoren und 

3. eine Division in einem Schritt von einem Prozessor. 


9 siehe Definition 2.1.3 
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Diese drei Berechnungsstufen werden insgesamt in 

2[log(n)l +2 

Schritten von 

n 3 

Prozessoren durchgeführt. 

Die Berechnung der Determinanten mit Hilfe von Satz 3.7.4 kann also in 

|~log(n)] 2 + 4 |~log(n)~| +4 

Schritten durchgeführt werden. Die Anzahl der Prozessoren beträgt 

n 3 


Man erkennt, daß C-Alg. keine Fallunterscheidungen verwendet. Dies ist ein Vorteil bei der 
Konstruktion von Schaltkreisen, da somit keine Teilschaltkreise für einzelne Zweige entworfen 
werden müssen. Dadurch wird ein Schaltkreis zur Determinantenberechnung mit Hilfe von C- 
Alg. nicht unnötig vergrößert. Es wird sich zeigen, daß die anderen Algorithmen (BGH-Alg., 
B-Alg. und P-Alg.) die Eigenschaft fehlender Fallunterscheidungen ebenfalls besitzen. In dieser 
Hinsicht besitzt keiner der Algorithmen einen Vorteil gegenüber den anderen. 

Vergleicht man den Aufwand an Schritten und Prozessoren mit dem der anderen Algorithmen, 
zeigt sich, daß C-Alg. bereits sehr effizient ist. 
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3.8 Determinantenberechnung mit Hilfe des Satzes von Frame 



Kapitel 4 


Der Algorithmus von Borodin, 
Von zur Gathen und Hopcroft 


Der Algorithmus [BvzGH82], der in diesem Kapitel dargestellt wird, verbindet die Vermeidung 
von Divisionen [Str73], das Gauß’sche Eliminationsverfahren (z. B. [BS87] S. 735) und die 
parallele Berechnung von Termen [VSBR83] miteinander, um die Determinante einer Matrix 
zu berechnen. Auf diesen Algorithmus wird mit BGH-Alg. Bezug genommen (vgl. Unterkapitel 
1.3). 

Er unterschiedet sich in seiner Methodik von den anderen Algorithemen (C-Alg., B-Alg. und 
P-Alg.) vor allem dadurch, daß er die Koeffizienten des charakteristischen Polynoms in keiner 
Weise beachtet (vgl. 2.4.4), sondern die Determinante durch miteinander verknüpfte Transfor¬ 
mationen, nicht zuletzt auch durch Ausnutzung von Satz 2.1.8, direkt berechnet. 

Wie sich in diesem Kapitel zeigen wird, besitzt der Algorithmus durch die Verbindung der 
drei o. g. Verfahren eine gewisse Eleganz, besonders, was die Handhabung der Konvergenz von 
Potenzreihen angeht. 

Ein Nachteil des Algorithmus ist die vergleichsweise schlechte Effizienz. 


4.1 Das Gauß’sche Eliminationsverfahren 


Das Gauß’sche Eliminationsverfahren wird dazu benutzt, lineare Gleichungssysteme der Form 

Ax = b 

zu lösen. Dazu wird die sogenannte erweiterte Koeffizientenmatrix betrachtet. Sie ist eine n x 
(n + 1)-Matrix, deren erste n Spalten aus den Spalten der Koeffizientenmatrix A bestehen und 
deren (n + l)-te Spalte aus dem Vektor b besteht. 

Die Idee des Gauß’schen Eliminationsverfahrens ist es, die erweiterte Koeffizientenmatrix so 
zu transformieren, daß die darin enthaltene Matrix A die Form einer oberen Dreiecksmatrix 
bekommt. Für eine solche n x n-Matrix gilt: 

VI < j < i < n : üij = 0 


Falls für die Matrix 


VI < i < j < n : a,;. ? = 0 


erfüllt ist, nennt man sie untere Dreiecksmatrix. Zur Transformation werden elementare Zeilen¬ 
operationen verwendet. Sie werden in Definition 2.1.6 der Determinanten einer Matrix unter Dl 
und D3 beschrieben. Sie haben nicht nur die dort genannten Beziehungen zur Determinanten 
einer Matrix, sondern noch zusätzlich die Eigenschaft, daß sie, angewandt auf die erweiterte 
Koeffizientenmatrix, die Lösungsmenge des linearen Gleichungssystems unverändert lassen. 
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4.2 Potenzreihenringe 


Für die Determinantenberechnung wird die erweiterte Koeffizientenmatrix nicht weiter beachtet. 
Alle Operationen beziehen sich nur auf die Matrix A. Die Matrizenelemente unterhalb der 
Hauptdiagonalen 1 werden spaltenweise durch Nullen ersetzt, beginnend mit der ersten Spalte. 
Die Transformationen werden durch folgende Gleichungen beschrieben 2 : 

(4.1) 

(4.2) 


Die so gewonnene Matrix A^ ist die gesuchte obere Dreiecksmatrix. Betrachtet man Satz 
2.1.8, erkennt man, daß sich die Determinante dieser Dreiecksmatrix dadurch berechnen läßt, 
daß man die Elemente der Hauptdiagonalen miteinander multipliziert. Da man nur die in 2.1.6 
erwähnten Operationen verwendet hat, erhält man so auch die Determinante der Matrix A. 


j( 0) 


(k) 

a ij 


:= di 


Jk-l) 

Jk-l) 


Jk-l) 


k,j 


,(*-0 

"k , k 


: i < k 
: i > k 


4.2 Potenzreihenringe 


Im darzustellenden Algorithmus spielen Potenzreihenringe eine wichtige Rolle. Deshalb werden 
in diesem Unterkapitel die für uns interessanten Eigenschaften dieser Ringe behandelt. Für 
unsere Betrachtungen sind Ringe mit einer zusätzlichen Eigenschaft von besonderem Interesse: 


Definition 4.2.1 Sei R ein Ring. Ein x £ R wird als Einheit9 bezeichnet, wenn es ein y £ R 
gibt, so daß 

x *y = 1 . 

Gibt es in R solche Elemente, so wird R als Ring mit Division durch Einheiten bezeichnet. 


Falls in diesem Kapitel von Ringen die Rede ist, sind immer Ringe mit Division durch Einheiten 
gemeint, falls nicht ausdrücklich etwas anderes angegeben wird. 

Sei M eine Menge von Unbestimmten: 

M := {zi, x 2 , • • •, x u } . 

Dann heißt R[M] Ring über M. Für R[M ] schreiben wir auch abkürzend /?,[]. Die Elemente 
von R[] sind Terme, in denen neben den Elementen von R zusätzlich Elemente von M als 
Unbestimmte auftreten dürfen. 

Analog zur Definition von /?[] wird R[[M]] definiert als Potenzreihenring über M. Für I?[[M]] 
wird auch /?[[]] geschrieben. Die Elemente von /?[[]] besitzen folgendes Aussehen: 

• Sei T eine Teilmenge 4 von IN 11 . 

• Für ein e £ T bezeichne e, das i-te Element. 

• Für e £ T sei 

kei ,e2 ,-.-,e n 2 ^ 

• Jedes u £ !?[[]] hat für geeignete fc, und eine geeignete Menge T die Form: 

U 

fc ei,e 2 ,-,e u 

e:{ei,e 2 ,...,e u }£T i=1 

x Die Hauptdiagonale bilden ai,i bis a n ,n- 

2 Das Gauß’sche Eliminationsverfahren wird im weiteren Text so modifiziert, daß Divisionen durch Null nicht 
Vorkommen können. Dieser Fall wird deshalb schon hier außer Acht gelassen. 

3 nicht zu verwechseln mit Einselement 
4 T kann unendlich groß sein 
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Die Summe der Glieder von u, für die gilt 

U 

Y e * = p 

i= 1 

wird homogene Komponente vom Gradp genannt. Die homogene Komponente vom Grad 0 wird 
auch konstanter Term genannt. 

Der Ring /?[] enthält /?[[]] als Unterring und dieser wiederum als Unterring den Ring der Poly¬ 
nome über den Unbestimmten M. 

Der Potenzreihenring i?[[]] besitzt eine für uns besonders interessante Eigenschaft. Dazu zu¬ 
nächst der folgende Satz: 


Satz 4.2.2 (Taylor) Eine Funktion f sei in 

(xq — a, x 0 + a) 


mit 


a > 0 

(n + l)-mal differenzierbar. Dann gilt für 

x € (xq — a, Xq + a) 


die Taylorentwicklung 


mit 


wobei 


f(x) = ^2 -— y^-( x - xoY + Rn(x) 


D — 0 




i?e(o,i) 

und Xq der sogenannte Entwicklungspunkt ist. 
Beweis [Hil74] S. 33-35 


□ 


Weitere Literatur zum Thema ’Taylorreihen’ ist z. B. [BS87] (S. 31 und 269). Ein Beispiel für 
die Anwendung von Satz 4.2.2 ist die Funktion 

fi(x) := • (4.4) 

1 — x 

Sie ist unendlich oft differenzierbar mit dem Entwicklungspunkt Xq = 0 erhält man die Potenz¬ 
reihe 

OO 

M x ) = Y x * ■ ( 4 - 5 ) 

2=0 

Der Konvergenzradius ([BS87] S. 366) beträgt 1, d. h. nur für 

kl < 1 


gilt 


.fi(x) = f 2 (x) ■ 


Für den Konvergenzradius k wird das Intervall 


(k,-k ) 


als Konvergenzbereich bezeichnet. 

Satz 4.2.2 läßt sich auch auf mehrere Unbestimmte verallgemeinern. Für uns ist dabei nur 
folgendes interessant: 
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4.3 Das Gauss’sche Eliminationsverfahren ohne Divisionen 


Seien 

f,g&R[[}} ■ 

Der konstante Term von g sei gleich Null. Für die Unbestimmten gelte 


xi,...,x u G (-1,1) . 


(4.6) 


Sei g konvergent. Dann folgt aus Satz 4.2.2, daß sich in i?[[]] Divisionen der Form 


/ 

1 ~9 


(4.7) 


ersetzen lassen durch 

f*(l+g + g 2 + ...) . 

(*) 


(4.8) 


Die Potenzreihe g wird als innere Reihe bezeichnet. Die Terme (*) sind ebenfalls Potenzreihen 
und werden als äußere Reihen bezeichnet. Setzt man die innere Reihe in eine der äußeren ein, 
erhält man wiederum eine Potenzreihe. Diese wird als Gesamtreihe bezeichnet. 

Im obigen Beispiel konvergiert die Gesamtreihe, falls die innere Reihe konvergiert und ihre 
Unbestimmten innerhalb des Konvergenzradius der äußeren liegen. Da diese Bedingungen erfüllt 
sind, folgt die Konvergenz der Reihe (4.8). Um die Konvergenz in praktisch nutzbarem Maße 
sicherzustellen, sollte der Betrag der Werte, die für die Unbestimmten eingesetzt werden, nicht 
beliebig nahe bei 1 liegen. 

Konvergenz ist beim Umgang mit Potenzreihen ein wichtiges Thema. Besonders beim Verknü¬ 
pfen von Potenzreihen mit mehreren Unbestimmten, wie im vorliegenden Fall, sind Konvergenz¬ 
betrachtungen u. U. komplex. Allgemeine Betrachtungen der Konvergenz von Potenzreihen mit 
mehreren Unbestimmten führen an dieser Stelle zu weit und sind z. B. in 


• [BT70] ab S. 1 sowie ab S. 49 und 

• [Hö73] ab S. 34 


zu finden. 

Bei praktischen Berechnungen können Potenzreihen nicht beliebig weit entwickelt werden, da 
die Rechenleistung beschränkt ist. Deshalb muß ein Grad fest gelegt werden, bis zu dem die 
Potenzreihen entwickelt werden. Dieser Grad ist i. A. besonders von der Stärke der Konvergenz 
der Reihe abhängig, die entwickelt werden soll. Die Festsetzung eines solchen Grades erfordert 
eine Analyse des jeweiligen Problems, das mit Hilfe der Entwicklung in Potenzreihen gelöst 
werden soll. So kann eine Potenzreihe als Endergebnis mehrerer hintereinander durchgeführter 
Verknüpfungen von Potenzreihen u. U. auch dann konvergieren, wenn als Zwischenergebnis 
auftretende Reihen divergieren 5 

Da für uns an dieser Stelle weitere allgemeine Betrachtungen uninteressant sind, erfolgt die 
Konvergenzanalyse im Zusammenhang mit der Anwendung der Potenzreihenentwicklung auf 
unser Problem der Determinantenberechnung. 


4.3 Das Gauß’sche Eliminationsverfahren ohne Divisio¬ 
nen 


Die Möglichkeiten zur Vermeidung von Divisionen wurden von V. Strassen [Str73] allgemein 
untersucht. In diesem Unterkapitel wird dargestellt, wie sich Strassens Ergebnisse auf das 
Gauß’sche Eliminationsverfahren anwenden lassen. 

5 In dem Algorithmus zur Determinantenberechnung, der in diesem Kapitel vorgestellt wird, tritt diese Be¬ 
sonderheit auf. In [BvzGH82] wird darauf in keiner Weise eingegangen, was sich bei der Bearbeitung als störend 
herausgestellt hat. 
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Die Hauptidee zur Vermeidung von Divisionen ist es, alle Berechnungen nicht in einem Ring 
R mit Division durch Einheiten durchzuführen, sondern im zugehörigen Potenzreihenring !?[[]], 
wobei Matrizenelemente als Unbestimmte auftreten. Um die Berechnungen in diesen Ring zu 
übertragen, wird das Kroneckersymbol definiert als 


‘'».j 


1 : i = j 

0 : i^j 


Es sei die Determinante der n x n-Matrix A zu berechnen. Ihre Elemente werden mit Hilfe der 
Definition 

•— &i,j üi ,j (4.9) 

ersetzt. Das bedeutet, jedes Matrizenelement a, -j wird ersetzt durch 


C _ / 

®i,j 0*1, j ' 


Wendet man nun das Gauß’sche Eliminationsverfahren an, bekommt jede Division die Form 
(4.7) und kann somit ersetzt werden durch (4.8), wie durch das Beispiel in Unterkapitel 4.4 
deutlich wird. 


Berechnet man mit Hilfe des Eliminationsverfahrens die Determinante von A, wie in 4.1 be¬ 
schrieben ist, und rechnet dabei in f?[[]] statt in /?,[], erhält man als Endergebnis eine Potenzreihe 
d! über den Unbestimmten a[ die die Determinante von A beschreibt. 

L iJ 

In der praktischen Berechnung ersetzt man die a[ j mit Hilfe von (4.9) durch konkrete Werte 
und wertet die Potenzreihe d! aus, um die Determinante als Element von R zu erhalten. 

Ein bis hierhin ungelöstes Problem ist die Sicherstellung der Konvergenz von d'. Dazu ist die 
Frage zu beantworten: 


Wie groß ist der Konvergenzradius von d'l 
Hierfür müssen wir zunächst eine Eigenschaft der Determinante näher betrachten 6 : 


Lemma 4.3.1 Es gibt genau eine Abbildung, die jeder Matrix ihre Determinante zuordnet. 


Beweis Der Beweis wird anhand der Matrix A geführt. 

Seien / und (/) zwei voneinander verschiedene Abbildungen, mit den in der Definition 2.1.6 
der Determinante beschriebenen Eigenschaften. 

Es werden zwei Fälle unterschieden: 


• Bei 

gilt nach Satz 2.2.4 


rg (A) < n 
f(A) = f(A) = 0 . 


• Sei 

rg ( A ) = n . (4-10) 

Entsteht die Matrix B aus A durch Zeilenumformungen entsprechend Dl in Definition 
2.1.6, dann gibt es ein c ^ 0, so daß gilt: 


f(B)=c*f(A) . 

Das gleiche gilt auch für f: 

\b) = c * (A) . 

Wegen (4.10) ist es möglich, durch Zeilenumformungen 


B — E n 


zu erreichen. Aus D4 in Definition 2.1.6 folgt dann: 

f(A) = -f(E n ) = - = -f(E n ) = f(A) . 
c c c 


6 Literatur zu diesem Lemma ist die in Kapitel 2 aufgelistete Grundlagenliteratur. 
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4.4 Beispiel zur Vermeidung von Divisionen 


In beiden Fällen gilt also / = (/) im Widerspruch zur Voraussetzung, daß f und (/) verschieden 
sind. □ 


Mit der Unterstützung durch dieses Lemma gelangt man zu einer wichtigen Aussage: 


Satz 4.3.2 Bezeichne d die Potenzreihe über den Unbestimmten üij, die man aus d' (s. o.) 
dadurch erhält, daß man alle Unbestimmten aU mit Hilfe von (4-9) ersetzt. 

Für d gilt: 


Alle homogenen Komponenten mit einem Grad ungleich n sind gleich Null. 


Beweis Aus der Richtigkeit der im vorliegenden Kapitel beschriebenen Verfahren folgt, daß 
d eine Determinante von A entsprechend der Definition 2.1.6 beschreibt. 

Bezeichne / die nach Satz 2.1.8 berechnete Determinante von A als Summe, deren Summanden 
jeweils aus einem Produkt von n Matrizenelementen bestehen. 


Nach Lemma 4.3.1 gilt: 


d = f ■ 


Betrachtet man die Termstruktur von d und beachtet, daß für die Matrizenelemente keine 
zusätzlichen Eigenschaften vorausgesetzt werden, folgt aus dieser Gleichung die Behauptung. 
□ 


Der Satz wird in Unterkapitel 4.4 an einer 3 x 3-Matrix demonstriert. 

Sowohl d als auch d! beschreiben die Determinante von A. Der Konvergenzradius von beiden 
Reihen ist also Unendlich. 

Aus Satz 4.3.2 folgt insbesondere, daß sich alle homogenen Komponenten mit einem Grad 
größer als n gegenseitig aufheben. Da alle Divisionen durch Additionen und Multiplikationen 
ersetzt worden sind, gehen diese Komponenten nicht in den Wert von Komponenten geringeren 
Grades ein. Komponenten mit einem bestimmten Grad beeinflussen im Verlauf der Rechnungen 
lediglich die Werte von Komponenten gleichen oder höheren Grades. 

Also ist es unnötig, die homogenen Komponenten mit einem Grad größer als n überhaupt zu 
berechnen. Dies ist ein wichtiges Ergebnis für die Analyse der Effizienz des Algorithmus. 


4.4 Beispiel zur Vermeidung von Divisionen 


Für eine 3 x 3-Matrix wird in diesem Unterkapitel gezeigt, wie die Determinante mit Hilfe des 
Gauß’schen Eliminationsverfahrens ohne Divisionen berechnet wird'. Wie im vorangegangenen 
Unterkapitel 4.3 begründet ist, werden bei allen Potenzreihen nur die homogenenen Kompo¬ 
nenten bis maximal zum Grad 3 betrachtet. 


Es ist die Determinante von 


« 1,1 

« 1,2 

« 1,3 

« 2,1 

« 2,2 

« 2,3 

« 3,1 

« 3,2 

« 3,3 


(4.11) 


7 Das Beispiel wurde mit Hilfe eines Programms zur symbolischen Manipulation von Termen berechnet. Wegen 
der vielen Indizes ist das Nachrechnen ohne Computer nicht ratsam. 



4.4 Beispiel zur Vermeidung von Divisionen 


51 


zu berechnen. Die Ersetzung mit Hilfe von Gleichung (4.9) ergibt: 

1 — 0 — a' 12 0 — a' 13 

0 — a 2 ,l 1 ~ a 2,2 0 — 02,3 

0 — a 3,l 0 ~ a 3,2 1 — a 3,3 

Nun werden Vielfache der ersten Zeile von den folgenden Zeilen subtrahiert, und man erhält: 


1 dpi 0 a 12 0 a 13 

0 (1 - a' 2>2 ) - (0 - a' 1>2 ) (0 - a' 2>3 ) - (0 - a' 1>3 ) g 

0 (0 - a' 32 ) - (0 - a' 12 ) g^|g (1 - a 3 , 3 ) - (0 - a' 1>3 ) g 

Durch Ersetzung der Divisionen und Vereinfachung der Terme erhält man: 


0 °1,3 


(1 _ o 2|2 ) - (0 - a' 12 ) (0 - o 2)3 ) - (0 - a i, 3 ) 

(0 _ a ', 2 ) - (0 - a' 12 ) (1 - a 3, 3 ) - (0 - a' 1>3 ) g^|g 


1 °i,i 

(1 — 02 , 2 ) a l,2 a 2,l* (0 — ^ 2 , 3 ) — a l,3 a 2,l* 

(1 + a' M + K tl ) 2 + (a' M ) 3 ) (1 + a' M + (a' M ) 2 + (a' M ) 3 ) 

(0 — ß 3j2 ) — a l,2 a 3,l* (1 ~~ ^ 3 , 3 ) — a l,3 a 3,l* 

(1 + a \,i + ( a i,i) 2 + ( a i,i) 3 ) (l + ai,i + Ki) 2 + Ki) 3 ) 

Da nur die homogenen Komponenten bis maximal zum Grad 3 berücksichtigt werden, erhält 
man durch weitere Vereinfachung der Terme: 


0 — ai ; 


0 — < 


1 a i,i 
0 


0 a'i 2 

1 — ( a 2,2 4” a l,2 a 2,l4” 

ai 2^2 1^1 1 ) 

0 — ( a 3,2 + a U2 a 3,l + 
Oi 2^3 l^l l) 


0 a l,3 

0 — ( a 2,3 4" a l,3 a 2,l _ 
dl 3^2 1^1 l) 

1 — ( a 3,3 4" a l,3 a 3,l _ 
dl 3H3 l^l l) 


Man erkennt, daß alle Elemente der Hauptdiagonalen wieder die Form 

1 — 9 i,j 

und alle anderen Elemente wieder die Form 

0 - 9i,j 

besitzen, wobei der konstante Term der gij jeweils gleich 0 ist. Bei der Fortsetzung des Elimi¬ 
nationsverfahrens können auftretende Divisionen also wiederum auf die gleiche Weise ersetzt 
werden. 

Als nächstes wird ein Vielfaches der zweiten Zeile von der dritten subtrahiert. Dazu sei 


a 2,2 

:= 1 - 

( a 2,2 4" a 'l,2 a 

ff 

a 2,3 

:= 0- 

( a 2,3 4" a l,3 a 

ff 

a 3,2 

:= 0- 

(«3,2 + a 'l,2 a 

11 

a 3,3 

:= 1 - 

( a 3,3 + a 'l,3 a 

n"' 

a 3,3 

ff 

•— a 3,3 

n" 

_ 

fl" 2 ’ 3 ' 

a 2,2 


Man erhält die Matrix: 


1 dpi 0 a 12 0 a 13 

0 cl 2 9 cl 2 o 


0 


0 
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4.5 Parallele Berechnung von Termen 


Da nur die homogenen Komponenten bis zum Grad 3 betrachtet werden sollen, erhält man 
durch Ersetzung der Division in der beschriebenen Weise und Vereinfachung der Terme 8 für 


a 3,3 // a 2,3 

a 2,2 

„n „n 

3,2 


u 3,3 

*(1 


flo 


“T,2^2,1 ' 

+ 2(l2,2 a l,2 a 2,l V ^ 2 ^ 2 ) 


* 0 . 


2,3 


n,2“2,i u 'i,i 


1 01,101,303,1 a l , 2 a 2 , 3 a 3 ,l a l , 3 a 2 , l a 3,2 

_ II III II / 

~ a l , 3 a 3 ,l ~ a 2 , 2 a 2 , 3 a 3,2 ~ a 2 , 3 a 3,2 ~ a 3,3 • 


Um die Determinante zu berechnen, werden die Elemente der Hauptdiagonalen a\ 3 , a '22 und 
a 33 miteinander multipliziert. Wiederum werden die Komponenten mit zu großem Grad weg¬ 
gelassen. Man erhält: 


“1,102,203,3 

1 — a l ,\ a 2 , 2 a 3,3 + a l,l 02,2 + a l , 1 a 2 , 3 u ' 3,2 T 

O12O21 — a l , 2 a 2 , 3 a 3 ,l ~ a l , 3 a 2 , l a 3,2 + 03302,2033 — a 13 a 31 


H - Qj-\ 1 Q/3 ^ O^i 1 + CL 


1,2 (X 2,1 U '3,3 


+09 


2,203,3 


CLn 


— a 


3,3 


Um die gesuchte Determinante zu erhalten, setzt man die mit Hilfe von Gleichung (4.9) aus 
den Oj,j erhaltenen Werte für die a' • ein. 

Zum Beweis, daß wir richtig gerechnet haben, machen wir nun die durch (4.9) definierte Sub¬ 
stitution im obigen Term wieder rückgängig. Nach der Vereinfachung des Terms lautet das 
Ergebnis, ohne daß zusätzlich irgendwelche Teilterme weggelassen worden sind: 


a l,l a 2,20 3 ,3 = 

Ol,102,203,3 + 01,202,303,1 + 01,302,103,2 
— 01,302,303,2 — Ol, 202,103,3 — 01,302,203,1 . 


Die Richtigkeit dieses Ergebnisses wird beim Vergleich mit Satz 2.1.8 deutlich. 


4.5 Parallele Berechnung von Termen 


Durch die Methode von Strassen zur Vermeidung von Divisionen entstehen Terme, die es paral¬ 
lel auszuwerten gilt. In diesem Unterkapitel wird ein Verfahren [VSBR83] beschrieben, welches 
diese Auswertung ermöglicht. Die Beschreibung des Verfahrens ist auf die Verwendung im Rah¬ 
men des Kapitels angepaßt. Eine ausführliche Beschreibung ist auch in [Wal87] ab S. 22 zu 
finden. 

Zunächst wird die Berechnung von Termen formalisiert. Dazu wird die Menge 

{vi | 1 < i < c} 

mit V bezeichnet. Die Menge der Elemente a tJ der n x n-Matrix A, die hier als Unbestimmte 
auftreten, wird mit X bezeichnet. Sei R der Ring, in dem alle Rechnungen durchgeführt werden. 
Es wird definiert 

V := VU XöR . 

Definition 4.5.1 Sei R[] der bereits erwähnte Ring über den Elementen von X. Sei c £ IN 
gegeben. Seien + und * die beiden Ringoperatoren für Addition bzw. Multiplikation. Es gelte 

_ °e {+,*}. 

8 Da alle Prokukte aus mehr als 3 Unbestimmten sofort weggelassen werden, dürfen die Rechenschritte nicht 
durch = verbunden werden. 
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Weiterhin gelte 


VI < i < c : v[,v" G V\{vi, v i+ tr 


Jede Folge der Form 


Vi := v, o V: 


i = 1, •••, c 


heißt dann Programm über R[] . Ein Element einer solchen Folge wird Anweisung genannt. 
Abhängig davon, ob o die Addition oder die Multiplikation bezeichnet, wird das u,; auch als 
Additions- bzw. Multiplikationsknoten bezeichnet. Falls das genaue Aussehen von Anweisungen 
von untergeordnetem Interesse ist, werden diese zur Abkürzung durch ihren Additions- bzw. 
Multiplikationsknoten repräsentiert. 


Falls in diesem Unterkapitel im Einzelfall nichts anderes fest gelegt wird, ist mit v[ bzw. v" 
jeweils der erste bzw. zweite Operand der Anweisung u, gemeint. Dies gilt auch dann, wenn 
andere Buchstaben benutzt werden oder keine Indizierung erfolgt. 

Jeder Term über /?,[] läßt sich durch ein Programm über R[] berechnen. Um Aussagen über 
solche Programme machen zu können, sind eine Reihe weiterer Vereinbarungen erforderlich, die 
im folgenden aufgeführt sind. 


Der durch eine Anweisung Vi berechnet Term wird mit /(i>j) bezeichnet. 


Sei x G V. Seien x ', x" G V. Dann wird der Grad von x mit g{x) bezeichnet und folgendermaßen 
definiert: 


g(x) 


0 

1 


g(x')+g(x") 
max(g(x'), g{x”)) 


x G R 
x&X 

(x G V) A (x := x' * x") 
(x G V) A (x := x' + x") 


Der Grad von x stimmt nicht mit dem Grad des Polynoms überein, daß dem Term f{x) ent¬ 
spricht. Dazu ein Beispiel: 


:'/*(-!) f(vi) = -y g{v i) = 1 
v 2 :=y + f(v 2 ) = 0 g{v 2 ) = 1 


Es wird o. B. cl. A. angenommen, daß für jede Anweisung 

x := x' o x" 


die Bedingung 

erfüllt ist. 


g(x') > g{x") 


Für alle a G IN wird definiert: 

V a := {u G V | g(u) > a, u := v! * u ", g{u') < a} 
V' a := {u G V | g(u) > a, u := v! + u ", g{u") < a} 


Definition 4.5.2 Sei v G V . Sei v\, ..., die längste Folge von Elementen von V, so daß gilt 


V\ = v 

VI < i < k - 1 : {v i+ \ = u-) V (u i+1 = v") 

v k G F U X . 


Dann bezeichnet d(v) = k die Tiefe von v. 
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4.5 Parallele Berechnung von Termen 


Definition 4.5.3 Sei v,w £ V. Dann wird f{y\w) £ i?[] wie folgt definiert: 
Bezeichnen v und w denselben Knoten, so gilt: 

f{v;w) := 1 . 

Falls dies nicht erfüllt ist und w £ R U X, dann gilt: 

f{v;w) := 0 . 

Falls dies ebenfalls nicht erfüllt ist und 


w := w' + w" 


dann gilt 

f(v; w ) := f(v; w') + f(v; w") . 

Falls auch dies nicht erfüllt ist, bleibt nur noch der Fall übrig daß gilt 


Dafür wird definiert 

f(v; w) := f(v, w') * f(w") . 


Durch die Art und Weise, wie f{v\ w) definiert ist, ergibt sich eine besondere Eigenschaft für 
den Fall, daß g(w) < 2 g(v) erfüllt ist. Falls nämlich in dem Programm, zu dem v und w gehören, 
der Knoten v durch eine neue Unbestimmte v' ersetzt wird, dann ist f{v\ w) der Koeffizient von 
v' in f(w). 

In Verbindung mit f(v; w) besitzen die Funktionen g() und d() eine Eigenschaft, die weiter 
unten von Bedeutung ist: 

Lemma 4.5.4 


g(v) > g{w) => f(v;w) = 0 

Beweis Der Beweis erfolgt durch Induktion nach d(w). 

d(w) = 0 

Es gilt: 

g(w) = 0 => w £ R 
g(v) > g(w) => v £ V U X 

Also ist f(v; w) = 0 . 


d(w) > 0 

Das Lemma gelte für alle u £ V, d(u) < d(w). Aus 4.5.2 folgt direkt, daß für jede 
Anweisung 

w := w' o w" 


gilt 


d[w) > d(w '), d(w) > d{w") . 


Mit Hilfe von 4.5.3 folgt daraus die Gültigkeit des Lemmas. 


□ 


Lemma 4.5.5 


d(v) > d(w ) => f(v; w) = 0 


Beweis analog zu 4.5.4 


□ 
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Es lassen sich nun zwei Aussagen formulieren. Dazu gelte jeweils v,w £ V und 0 < g(v) < a < 
g(w). 

Lemma 4.5.6 

f(v, tu) = ^2 (/(u; u) * f(u\ tu)) + ^2 (/0; u") * /(«; w)) 
uev a uev^ 


Beweis Der Beweis erfolgt durch Induktion nach d(w). Aufgrund der Struktur der zu bewei¬ 
senden Aussage sind die Beweise von Induktionsanfang und Induktionsschluß nicht voneinander 
getrennt. 


Wegen der Voraussetzung 


0 < a < d(w) 


folgt aus 


d(w) < 1 => w £ RU X , 

daß d(w) = 1 nicht auftreten kann. Sei im folgenden also d(w) > 1. 
Vier Fälle sind zu unterscheiden: 


tu := tu' + tu", g(w") < a 

Das Lemma gelte für tu'. Aus der Voraussetzung folgt: 


Aus 4.5.5 folgt: 
Außerdem gilt: 
Nach 4.5.3 gilt: 
So ergibt sich: 


wgv; . 
f(w ; tu') = 0 . 

g(w") < a => Vtt e V' a : f(u; tu") = 0 
f(w,w) =1 . 


f{v; w') = ^2 (/( y ; u ) * /( u > w ')) 

UGV a 

+ X! (/( v ; u ”) * /( u ; w 0) 

«ev a ' 

= ^2 + /( u;w "))) 
uGV a 

+ (/(*>; u> 7 ) * (/( u ; w 7 ) + /(^ w "))) 

tievj 

= ^2(f(v;u)* f(u,w)) 


ue v a 

+ u w )) 

nGV'a\(' lü } 

Es folgt mit Hilfe von 4.5.3: 

/0; w) = /(u; tu') + f(v; tu") 

= f(v; w') + f(v, tu") * /(tu; tu) 

= ^2(f(v,u)* f(u,w)) 

«6Va 

+ X! (f( v > u ") * f(u;w)) + f(v\w") * /(tu; tu) 

= (/( U i U ) * f( U ’ W )) 

UGVa 


+ X! (/<v; u ") * f( u ; w )) 


uev' 
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4.5 Parallele Berechnung von Termen 


w : 


w : 


w : 


w' + w", g{w") > a 
Das Lemma gelte für w' und w". 

f(v, w) = f(v; w') + f(v; w") 

= 51 u ) * w ')) + 51 (/( v ; w ") * /(«; ^0) 

«ev 0 uev a 

+ 51 w ) * /( y ; ■“'")) + 51 v ; ^ ^O) 

«eü MSVa 

= 5Z (/( u ; u ) * (/( u;w,/ ) + /(«;w"))) 

uev a 

+ 51 (/( w ; M ") * (/( u ; ^0 + /( u ; w "))) 

uev a 

= 51 (/( u ; u ) * /( u ; w )) + 5Z (/( u ; u ") * /( m ; w )) 

uev a uev a 

w' * w", g(w') < a 
Es gilt: 

w G V a 

f{v;w) = f(v\w) * f(w;w) . 

Andererseits gilt: 

Vu G K\W : f{u\ wf) = 0 

=> Vu G K\{w} : f(u\ ty) = f(w") * f(u; w') = f(w") *0 = 0 

Also folgt: 

5] (/(r; u ) * /(«; w )) = /O;«0 * /O; w ) = /O; w ) • 

u£Va 

Weiterhin folgt aus 4.5.4: 

V« G IV : /(u; u/) = 0 

=> 51 (/(■“") * /( u ;H) 

«ev 0 ' 

= 5Z * f( w ") * /( u ; ^0) = ° 

«ev 0 ' 

Also ist das Lemma für diesen Fall richtig. 


w' * w", g(w') > a 
Das Lemma gelte für w'. 

f(v) w) = f(w") * f(v; w') 

= f(w”) * ( 5Z u ) * /( u 5 w O) + 51 w,/ ) * /( u ; w ')) 

\uev a «ev a ' y 

= 51 (/( w; u ) * /(VO * /( u ; w> )) + 5Z (/( v ; M ") * f( w ") * /( u ; w ')) 

uev a «ev a ' 

= 51 (/( u ; u ) * /( m ; w )) + 51 (/( v ; M ") * f( u; w )) 

ti€V a ueV a ' 


□ 
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Lemma 4.5.7 

/O) = E (/(«) * f(u; w)) + E * /(«; w )) 

usv„ ue^ 


Beweis Bis auf den Unterschied, daß die auftretenden Terme entsprechend unterschiedlich 
sind, ist der Beweis identisch zum Beweis von 4.5.6. □ 


Mit Hilfe von 4.5.6 und 4.5.7 läßt sich ein Verfahren zur parallelen Berechnung von Termen 
angeben, das im folgenden beschrieben wird. 


Gegeben sei ein Programm der Länge c, d. h. 

V = {ul, V 2 , ■ ■ ■ ,v c } . 

Es ist f(v c ) zu berechnen. Die Berechnung erfolgt stufenweise. Seien v. w £ V. In Stufe 0 werden 
alle f(w) mit 

9 O) = 1 


und alle f(v; w ) mit 


9 O) - g(v) = 1 


berechnet. 


In Stufe i werden alle f(w) mit 
und alle f(v; w) mit 


2 1 - 1 < g(w) < 


2* 1 < g(w) - g(v) < 2 l 
berechnet. Dabei werden die Ergebnisse der vorangegangenen Stufen benutzt. 


Auf diese Weise ist f(v c ) nach 

riog(^c))i 

Stufen berechnet. 


In Stufe i werden zunächst die f(w ) mit Hilfe von 4.5.7 berechnet. Dazu wird a = 2* 1 gewählt: 

/M = ^2 w )) + 12 * /( u ; u; )) 

MSVa «eic 

= 5Z w )) + w )) ( 4 - 12 ) 

uev a «ev a ' 

Anhand der Definitionen erkennt man, daß für alle auftretenden /(...) gilt: 

<?(/(■•■))< 2*" 1 • 

Also wurden alle zu benutzenden Terme bereits in einer der vorangegangenen Stufen berechnet. 

Man erkennt anhand der bisher angestellten Betrachtungen über Programme zur Berechnung 
von Termen, daß der Aufwand für alle Programme der Länge c gleich ist. Da eine Aufgabe, 
die in a Schritten von b Prozessoren erledigt wird, auch in 2a Schritten von b/2 Prozessoren 
erledigt werden kann, erfolgt die Analyse des Aufwandes für eine bestimmte Stufe i zunächst 
mit Hilfe der durchschnittlich für eine Stufe zu erwartenden erforderlichen Operationen 9 . 

Für eine bestimmte Stufe läßt sich die Größe der Mengen V a und V' nicht genau vorherbestim¬ 
men. Falls die Berechnung in z Stufen durchgeführt wird, dann gilt jedoch 

0 < i,j < z 

i ± j 

a k := 2 k ~ 1 

V ai n V ak = < n V' k = 0 

E i^i^ c 

0<i<z 

E \K\< C 

0<i<z 

9 Diese Betrachtungsweise kennt man in der Literatur unter dem Begriff Rescheduling. 



58 


4.5 Parallele Berechnung von Termen 


Die Mengen V a und V' a besitzen also durchschnittlich höchstens 


z flog(5(u c ))l 

Elemente. Dieser Wert wird mit m bezeichnet. 

Aus den vorangegangenen Überlegungen folgt, daß (4.12) in 


riog(m)] + 3 = 


log 


fl°g(s(«c))l 


+ 3 


Schritten von 


2m = 2 


fl°g(ff(«c))l 


Prozessoren berechnet werden kann. 

Nachdem in Stufe i die f(w) berechnet worden sind, werden die f(v; w) mit Hilfe von 4.5.6 
ausgerechnet. Dazu wird a = g(v) + 2 I_1 gewählt: 

f(v, w) = Y (/( u ; u ) * f( u > w )) + Y w )) 

uev 0 

= * /( u ; u ') * /( u ; w )) + Y (/(*>; u ") * f ( u ’ w )) 

uev a »gv - ,; 


Anhand der Definitionen erkennt man, daß alle f(y\ u'), f(u; w) und f(v; u") bereits berechnet 
wurden. Für f(u") gibt es kritische Fälle, die separat untersucht werden müssen: 

g{u') > g{u") > 2\ f(v; v!) = 0 

Der Fall ist kein Problem, da der Wert des jeweiligen gesamten Terms gleich Null ist. 


g{u')>g{u")>2\ /(v;«')/0 
Es muß gelten: 

Daraus ergibt sich: 


g{u') > g{v) . 


g(u) = g(vf) + g(u") 

> g{v) + 2 * 

> g(w) 

=> f(u;w) = 0 


Der Wert des Terms ist also wiederum gleich Null. 


Für die Analyse des Aufwandes gelten die gleichen Bemerkungen wie für die Berechnung der 

/M- 

Insgesamt kann f{v c ) in 


2 flog(g(u c ))"| (|4og(m)] +3) 


2 riog(s(v c ))] 



Üog(ff(w c ))l 



Schritten von 

2m = 2 nog(,(u c ))i 

Prozessoren berechnet werden. 


(4.13) 


(4.14) 


Für das bis hierhin beschriebene und analysierte Verfahren gibt es einen Sonderfall, der mit 
geringerem Aufwand gelöst werden kann. 
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Definition 4.5.8 Sei V \, v c ein Programm im Sinne von 4.5.1. Falls für alle Additionskno¬ 
ten Vi := v[ + v" dieses Programms gilt: 

9{v'i) = g(v") , 

so wird das Programm als homogen bezeichnet. 


Für homogene Programme sind alle Mengen V' a leer. Mit dieser Feststellung ergeben sich aus 
4.5.6 und 4.5.7 zwei Folgerungen für homogene Programme: 

Folgerung 4.5.9 


/0; w) = (/( u ; u ) * /(«; w )) 

uev a 

Folgerung 4.5.10 

f{w) = ^2 ( f(u ) * f(u; w)) 

u£ V a 


Werden im angegebenen Verfahren zur parallelen Berechnung von Termen die Folgerungen 
4.5.9 und 4.5.10 statt der Lemmata 4.5.6 und 4.5.7 benutzt, so führt das zu leicht verringertem 
Berechnungsaufwand. Dann kann f(v c ) analog zur obigen Analyse für f(v c ) bei nicht homogenen 
Programmen in 


2 pog(g(u c ))] 


log 


flog(sf(u c ))l 



(4.15) 


Schritten von 

c 

riog(^c))i 


(4.16) 


Prozessoren berechnet werden. 


4.6 Das Gauß’sche Eliminationsverfahren parallelisiert 


Das Thema dieses Unterkapitels ist es, wie das in 4.5 beschriebene Verfahren benutzt werden 
kann, um mit Hilfe des in 4.3 angegebenen Gauß’schen Eliminationsverfahrens ohne Divisionen 
parallel die Determinante einer nxn-Matrix zu berechnen. Auf den so entstehenden Algorithmus 
wird mit BGH-Alg. Bezug genommen (vgl. Unterkapitel 1.3). 

Da keine Divisionen durchgeführt werden, ist BGH-Alg. ebenso wie B-Alg. auch in Ringen 
anwendbar. In dieser Hinsicht besitzen die beiden Algorithmen gegenüber C-Alg. und P-Alg. 
einen Vorteil. 

Im folgenden wird beschrieben, wie ein Programm im Sinne von 4.5 anhand der Ergebnisse 
von 4.3 aufgebaut wird. Um die Auswirkungen des Grades, bis zu dem Potenzreihen entwickelt 
werden, auf die Effizienz der Rechnung besser demonstrieren zu können, werden die folgenden 
Betrachtungen zunächst unabhängig von einem konkreten Grad durchgeführt. Für alle Potenz¬ 
reihen werden die homogenen Komponenten bis maximal zum Grad s betrachtet. 

Es gibt drei wesentliche Elementaroperationen für Potenzreihen, die zunächst auf ihren Aufwand 
hin untersucht werden. Da sich nach 4.5 die Anzahl der Prozessoren und der Schritte aus der 
Programmlänge ergibt, wird im folgenden nur die Anzahl der Anweisungen im Sinne von 4.5.1 
betrachtet: 

Addition 

Dieser Fall gilt für Subtraktion analog. Es werden die homogenen Komponenten gleichen 
Grades addiert. Da die homogenen Komponenten bis zum Grad s betrachtet werden, 
sind hierfür s + 1 Anweisungen erforderlich. 
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Multiplikation 

Seien a und b die zu multiplizierenden Potenzreihen. Für eine Potenzreihe x bezeichne 
Xi deren homogene Komponente vom Grad i. Das Ergebnis der zu Multiplikation von 
a und b sei c. Man erhält c mit: 


d := Y a j * b i-j ■ 

3 =o 

Da für c auch nur die homogenen Komponenten bis zum Grad s berechnet werden 
müssen, folgt mit Hilfe der Gleichung 


i-1 

2 i = Y 2i + 1 

3=0 

für die Anzahl der Anweisungen bei Benutzung der Binärbaummethode nach 1.5.1: 


< 


ri°g(i)i—i 


•+ E 2 ' 

3=0 


E 

2=0 

Y (iT 2^001 -l) 

2=0 

Y (* + 2 log(i)+1 - l) 

2=0 

S 

Y ( 3i - 1 ) 


2=0 


s 

3 E* _ ( s+1 ) 

2 = 0 

^s(s + l) - (s + 1) 

3s 2 + s — 2 
2 


Division 

Die Divisionen werden entsprechend der Ausführungen in 4.2 und 4.3 durch Additionen 
und Multiplikationen ersetzt (vgl. S. 48). Da nur die homogenen Komponenten bis zum 
Grad s betrachtet werden, erfolgt die Potenzreihenentwicklung wie in (4.8) nur bis zum 
s-ten Glied. 

Somit sind s Multiplikationen und s — 1 Additionen von Potenzreihen sowie die Ad¬ 
dition des konstanten Terms durchzuführen. In Verbindung mit den vorangegangenen 
Analysen von Addition und Multiplikation ergibt sich für die Anzahl der Anweisungen: 

s * ( ---J T (s - 1) * (s T 1) T 1 

3s 3 T 3s 2 — 2s 
2 ' 

Als nächstes wird untersucht, wieviele der einzelnen Elementaroperationen zur Berechnung der 
Determinante benutzt werden. Dazu werden zwei Gleichungen benutzt: 


Bemerkung 4.6.1 Sei n € INq. Dann gilt: 


E fc 


*;=i 


n(n + 1) 


2 
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Bemerkung 4.6.2 Sei n € INq. Dann gilt: 


E fc2 = 


n(n + l)(2n + 1) 


k —1 


Das in 4.1 beschriebene Verfahren verwendet die Gleichungen (4.1) und (4.2). Werden mit 
Hilfe dieser Gleichungen zunächst alle Matrizenelemente transformiert, beträgt die Anzahl der 
Berechnungen neuer Elemente: 

n— 1 n 

E E («-ü- 1 )) 

*=1 j = i +1 

n n 

i=2 j=i 
n n—(i—1) 

- E E i 

i=2 j=l 

nach 4.6.1 ^ (tl — (i — 1)) * ((ll — (i — 1)) + 1) 


E 

1 


^((n — i + 1) * (n — i + 2)) 


i =2 


^^(n 2 + 3n — 2m + i 2 — 3i + 2) 


i =2 


- (n — 1) (n 2 + 3n + 2) + ^ i 2 — ^ 2ra — ^ 3i 


nach 4.6.1,4.6.2 1 


- (n 3 + 2 n 2 — n — 2) + -n(n + l)(2n + 1) — 1 


i(n + 1) 


- 1 


2 

_ 2n /n(n + l)_ 1 . _ 3 

l -(( n * + 2 „*-„- 2)+ 2n3 + 3 '‘ 2 + n -l 

2 V 6 


— (n 3 + n 2 — 2n) — 

-n) 


3 (n 2 + n) 


- 3 


Für jede einzelne Transformation eines Matrixelements werden nach (4.2) eine Subtraktion, eine 
Multiplikation und eine Division durchgeführt. Da alle Rechnungen in i?[[]] erfolgen, werden 
dabei Potenzreihen miteinander verknüpft, wofür der Aufwand gemessen in durchzuführenden 
Anweisungen bereits analysiert worden ist (s. o.). Für die identische Abbildung nach (4.1) wird 
kein Aufwand in Rechnung gestellt. So kommt man auf 


^(n 3 - n) * ( s+ 1 + 


3 s z + 5 — 2 3 s 6 + 35^ — 25 


= - I n 3 s 3 + 2n 3 s 2 + 


n 3 s 


o o TIS 

— ns ö — 2 ns -— 


(4.17) 


Anweisungen, um eine gegebene Matrix mit Hilfe des Gauß’schen Verfahrens in eine obere Drei¬ 
ecksmatrix zu überführen. Zu Berechnung der Determinante sind im Anschluß daran noch die 
Elemente der Hauptdiagonalen miteinander zu multiplizieren. Dies kann mit n — 1 Multiplika¬ 
tionen geleistet werden, denen 


(n — 1) * 
1 


3s" 2 -f s — 2 


= ^ (3ns 2 + ns — 2 n — 3s 2 — s + 2) 


(4.18) 
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Anweisungen entsprechen. So hat man bereits das Ergebnis als Element von Um die 

Determinante als Element von R zu erhalten, müssen nun noch die homogenen Komponenenten 
bis zum Grad s addiert werden. Dies kann mit Hilfe von s Anweisungen erfolgen. Abgesehen von 
diesen Additionen ist das Programm homogen im Sinne von 4.5.8. Deshalb ist es von Vorteil, 
die in 4.5 beschriebene Methode auf das Programm ohne die letzten Additionen anzuwenden 
und diese Additionen mit Hilfe der Binärbaummethode nach 1.5.1 durchzuführen. Die Addition 
der homogenen Komponenten kann so in 


riog(s+i)i 

Schritten von 

s + 1 
2 

Prozessoren geleistet werden. 

Man erhält das Gesamtergebnis für die Programmlänge ohne die letzten Additionen als Summe 
von (4.17) und (4.18): 

- [ n 3 s 3 + 2 n 3 s 2 + -n 3 s — ns 3 + ns 2 + -ns — 4n — 6s 2 — 2s + 4 ) 

4 V 3 3 J 

Anweisungen. Dieser Wert wird entsprechend der Terminologie in 4.5 mit c bezeichnet. Da bei 
allen Rechnungen nur die homogenen Komponenten bis zum Grad s beachtet werden, gilt 

g(v c ) = s . 

Aus c und g(v c ) erhält man mit Hilfe der Analyseergebnisse (4.15) und (4.16) aus 4.5 für die in 
diesem Kapitel beschriebene Methode zur parallelen Determinantenberechnung einen Aufwand 
von 10 


2 riog(s)l * ((log(c)l + 2) + |"log(s + l)] 
2 riog(s)l 


1 


log - ( n ö s 6 + 2 n 6 s + ~n 6 s — ns 6 + ns + -ns — An — 6s — 2s + 4 


riog(s+i)i 



Schritten und 


max 



= c 

1 

4 


n 3 s 3 + 2 n 3 s 2 + -n 3 s — ns 3 + ns 2 

O 


5 

3 


ns — 4n — 6s 2 — 2s 



Prozessoren. Man erkennt an diesen Werte die Bedeutung des Parameters s, dem maximal 
berücksichtigten Grad der homogenen Komponenten der Potenzreihen. Betrachtet man s als 
Konstante, so kann der Algorithmus in 


0(log(n)) 

Schritten von 

0(n 3 ) 

Prozessoren bearbeitet werden. 

Die Analyse in Unterkapitel 4.3 ergibt, daß s = n zu setzen ist, so daß der Algorithmus in 

0(log 2 (n)) 

Schritten von 

_ 0(n 6 ) 

10 Genau genommen muß der Wert noch um 1 erhöht werden für die Berechnung der a^ . aus den ursprünglichen 
Matrizenelementen aij entsprechend Gleichung (4.9). 
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Prozessoren bearbeitet werden kann. 

Die Aufwandanalyse ergibt, daß BGH-Alg. insbesondere bei der Größenordnung der Anzahl 
der Prozessoren deutlich hinter C-Alg., B-Alg. und P-Alg. zurückliegt. Die Konstanten bei der 
Anzahl der Schritte sind ebenfalls vergleichsweise schlecht. 

In BGH-Alg. werden, wie bei den anderen drei Algorithmen, keine Fallunterscheidungen verwen¬ 
det, was aus den bereits in Unterkapitel 3.8 erwähnten Gründen beim Entwurf von Schaltkreisen 
vorteilhaft ist. 

Betrachtet man die Methodik von BGH-Alg., so ist er P-Alg. am ähnlichsten. Beide fassen 
mehrere auch unabhängig voneinander bedeutsame Verfahren zu einem Algorithmus zur Deter- 
miantenberechnung zusammen. C-Alg. und B-Alg. hingegen stützen sich jeweils auf bestimmte 
schon seit 40 bis 50 Jahren bekannte Sätze, die nach einigen Umformungen für einen parallelen 
Algorithmus verwendet werden. 
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Kapitel 5 


Der Algorithmus von Berkowitz 

Der in diesem Kapitel vorgestellte Algorithmus [Ber84] berechnet die Determinante mit Hilfe 
einer rekursiven Beziehung zwischen den charakteristischen Polynomen einer Matrix und ih¬ 
ren Untermatrizen. Dabei wird 2.4.4 ausgenutzt. Auf den Algorithmus wird mit B-Alg. Bezug 
genommen 1 . 

Wie in BGH-Alg., werden keine Divisionen verwendet 2 . 

5.1 Toepliz-Matrizen 

Im darzustellenden Algorithmus spielen Toepliz-Matrizen (Definition s. u.) eine wichtige Rolle 
und werden deshalb in diesem Unterkapitel behandelt. 

Eine Matrix n x p-Matrix A heißt Toepliz-Matrix, falls gilt: 

dij = a,i-1 <i <n, 1 < j <p ■ 

Sie hat also folgendes Aussehen: 

« 1,1 « 1,2 «1,3 Ol,4 

«2,1 «1,1 «1,2 öl,3 

«3,1 «2,1 «1,1 ßl,2 

«4,1 «3,1 «2,1 «1,1 

Die folgende Eigenschaft von Toepliz-Matrizen ist für uns wichtig: 

Satz 5.1.1 Sei A eine n x p-Matrix und B eine p x m-Matrix. Beide seien untere Dreiecks- 
Toeplitz-Matrizen. Falls für die Matrix C gilt 

C = A * B , 

dann ist C ebenfalls eine untere Dreiecks-Toeplitz-Matrix. Sie kann in 

riogwi +1 

-'-vgl. Unterkapitel 1.3 
2 vgl. Erläuterungen in Unterkapitel 3.8 
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Schritten von 


min (», m) * (min(ö, m) + 1) , 

-——-———— -- + p * max(n 


< n * p 

Prozessoren berechnet werden. 


P, 0 ) 


Beweis Es sind drei Eigenschaften von C zu zeigen: 

1. C ist eine untere Dreiecksmatrix. 

2. C ist eine Toeplitz-Matrix. 

3. C kann mit dem oben angegebenen Aufwand an Schritten und Prozessoren berechnet 
werden. 


Dies geschieht in drei entsprechenden Beweisschritten. Dazu ist zu beachten, daß die einzelnen 
Elemente von C nach der Gleichung für die Matrizenmultiplikation berechnet werden: 

p 

Ci.j — ^ ^ CLi,kbk,j (5.1) 

k= 1 


1. Um zu beweisen, daß C ebenfalls eine untere Dreiecksmatrix darstellt, ist zu zeigen 

i < j 0/ j — 0 

Dies erfolgt durch Fallunterscheidung anhand des Index k in Gleichung (5.1). Es gibt zwei 
Fälle: 

i < k 

Da A nach Voraussetzung eine untere Dreiecksmatrix ist und somit 

1 ^ J - ’T' Oij — ü 

gilt, folgt 

wodurch der entsprechende Summand in Gleichung (5.1) zu 0 wird. 


i> k 


Nach Voraussetzung gilt 

i <j , 

da für die Elemente oberhalb der Hauptdiagonalen von C zu zeigen ist, daß sie 
gleich 0 sind. Daraus folgt aber 

k < j ■ 


Nach Voraussetzung ist B ebenfalls eine untere Dreiecksmatrix und es gilt somit 


i < j => b -i. ,j — 0 

Daraus folgt 

bk.j 6 ? 

wodurch wiederum der entsprechende Summand in Gleichung (5.1) zu 0 wird. 

In beiden Fällen sind die betrachteten Summanden von Gleichung (5.1) gleich 0. Also ist 
dann auch 


c -i — 0 , 


was zu zeigen war. 
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2. Damit C eine Toeplitz-Matrix ist, muß gelten 

C i,j = c i+lJ+l ■ 

Mit Hilfe von Gleichung (5.1) ausgedrückt bedeutet dies 

v P 

^ ' CLi^k^k.j = y ' di+ljblj+l . (5.2) 

k —1 l—1 

Da C eine untere Dreiecksmatrix ist, wie oben bewiesen wurde, müssen nur 

°i,j 

betrachtet werden, für die gilt 

* > j ■ 

Man kann Fallunterscheidungen anhand der Indizes k und l durchführen. Es gibt für jeden 
Index drei Fälle, also insgesamt sechs: 

k > i 

Da A nach Voraussetzung eine untere Dreiecksmatrix ist, gilt in diesem Fall 

O'i^k — 0 i 

und der entsprechende Summand wird zu 0. 


j > k 


Da B nach Voraussetzung ebenfalls eine untere Dreiecksmatrix ist, gilt in diesem 
Fall 


bk.j 0 ) 


und der entsprechende Summand wird zu 0. 


i > k > j 

Nur in diesem Fall ergibt sich auf der linken Seite von Gleichung (5.2) für den 
jeweiligen Summand ein von 0 verschiedener Wert. Deshalb kann man die linke 
Seite dieser Gleichung auch schreiben als 

i 

T. a i,k.bk,j ■ 

k—j 


l > i H - 1 

In diesem Fall gilt, da A eine obere Dreiecksmatrix ist, 

o-i+i.i = 0 . 

Der entsprechende Summand der Summe in Gleichung (5.2) wird somit zu 0 und 
muß nicht länger betrachtet werden. 


j + 1 > l 

In diesem Fall gilt 


bi,j +1 — 0 > 


da B eine obere Dreiecksmatrix ist und der entsprechende Summand in Gleichung 
(5.2) muß nicht länger betrachtet werden. 


1 > l > 3 + 1 

Nur in diesem Fall ergibt sich auf der rechten Seite von Gleichung (5.2) ein von 0 
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verschiedener Wert für den entsprechenden Summanden. Man kann also die rechte 
Seite dieser Gleichung auch schreiben als 

*+1 

y^ 

1 = 3 +1 


Nach der Betrachtung dieser sechs Fälle reduziert sich Gleichung (5.2) also, falls man nur 
die von 0 verschiedenen Summanden betrachtet, auf die Form 

i *+1 

(H,kbk,j = ^ "i •ubi.j i l 
fc=i i=i+i 

Anders geschrieben hat diese Gleichung die Form 

+ a i,j+lbj+l,j + 0-i,j+2bj+2,j + • • • + Q-i,ibi,j = 
a i+l,j+lbj+l,j+l + di+l,j+2bj+2,j+l + a i+l,j+3bj+3,j+l + • ■ • + Oj+M+l&i+l ,j+l 

Da A und B Toeplitz-Matrizen sind, haben die beiden Seiten dieser Gleichung den gleichen 
Wert, was zu beweisen war. 


3. Da C wiederum eine Toeplitz-Matrix ist, müssen nur die Cij mit j = 1 neu berechnet 
werden. Alle anderen Elemente sind entweder gleich Null oder gleich einem Cj i- Läßt 
man zusätzlich alle Multiplikationen mit Null weg, kommt man zur Berechnung von C 
insgesamt mit 

flog(p)l +1 

Schritten und 

min(p, m) 

^ k + p* max(n — p, 0) 
k -1 

min(», m ) * (min(p, m) + 1) . 

= ---1- p* max(n — p, 0) 

Prozessoren aus. Einschließlich der Multiplikationen mit Null erhält man 

flog(p)l +1 


Schritte und 
Prozessoren. 


n* p 


□ 


5.2 Der Satz von Samuelson 


In diesem Unterkapitel wird der theoretische Hintergrund des darzustellenden Algorithmus be¬ 
handelt. 

Zur Beschreibung des Satzes von Samuelson [Sam42] wird folgende Schreibweise eingeführt (A 
ist eine n x n-Matrix): 

• Den Vektor 5,; erhält man aus dem i-ten Spaltenvektor von A durch Entfernen der ersten 
i Elemente. Er hat also folgendes Aussehen: 

^2 + 2,2 

&n,i 
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• Den Vektor Ri erhält man aus dem i-ten Zeilenvektor von A durch Entfernen der ersten 
i Elemente. Er hat also folgendes Aussehen: 

[«i,l+l> «i,i+2 3 ■ • • ^ «i.n] 

• Die Matrix Mi erhält man aus der Matrix A durch Entfernen der ersten i Zeilen und 
Spalten. Sie hat also folgendes Aussehen: 

ßi+1,2+1 ®i+l,i+2 * * * 

ßi+2,2+1 ^i+2,i+2 * ‘ * ^2+2,71 

1 2 * ‘ * ^n,n 

• Statt Si, i?i und Mi wird auch S, R und M geschrieben. 


Die Matrix A läßt sich also auch in den Formen 


on R 
S M 

oder 

«n Ri —> 

Si 022 ^2 —* 

I S 2 «33 ^3 

l S 3 ••• 

I 


darstellen. 

Im folgenden Lemma wird das charakteristische Polynom einer Matrix mit Hilfe der oben defi¬ 
nierten R , S und AI ausgedrückt: 


Lemma 5.2.1 Sei p(X) das charakteristische Polynom der n x n-Matrix A. Dann gilt: 
p(X) = ( 01,1 — A) * det(M — A * E n _ 1 ) — R * adj (M — A * E n _\) * S 


Beweis Es gilt 


p(X) = det(A — A * E n ) 

Durch Entwicklung nach der ersten Zeile erhält man: 


p(X) = (« 1,1 - A) * det(M - A * E n _ 1 ) + ^(-l) 1+J oijdet((A - A * E n ) W ß) 

j =2 

Nun werden die in der obigen Gleichung unterstrichenen Determinanten jeweils nach der ersten 
Spalte entwickelt: 


pW = 


(&i ? i — A) * det(M — A * _£/ n _i) -|- 


V (-l) 1 +J oi ;i V(-l) 1+(fc 1 ) «fc,i det((A - A * R n )(i, fc |i,j)) 

1=2 ^ fe=2 


(* 1 ) 


(* 2 ) 
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Wenn man in dieser Gleichung (*1) mit der inneren Summe multipliziert und (*2) mit Hilfe 
von M ausdrückt erhält man: 

n n 

p( A) = (ou,i - A) * det(M - A * E n _ i) + E ^(-l) 1+J+fc aija fc ,i det((M - A * S n -i)(fc-i|j-i)) 

i=2fc=2 ""PT 

Hier läßt sich (*) mit Hilfe von R und S formulieren: 

n n 

p( A) = (aip — A) * det(M — A * E n _ i) + E E(- 1 ) 1+j+fe ^^ det (( M - A * ^-i)( fe -ib-D) 

j=2 k =2 

Dies wiederum ist in Matrizenschreibweise und mit Hilfe der Adjunkten einer Matrix ausge¬ 
drückt nichts anderes als 

p( A) = (dpi — A) * det (M — X * E n _ i) — i? * adj (M — A * E n - 1 ) * S 1 , 
was zu beweisen war. □ 


Vor Lemma 5.2.3 müssen wir hier zunächst einen wichtigen Satz behandeln ([MM64] S. 50 f): 

Satz 5.2.2 (Cayley und Hamilton) Sei p( A) das charakteristische Polynom von A. Dann 
gilt: 

p(A) = 0 nj „ 


Beweis Aus Satz 3.6.3 folgt 

{A - A£„)adj {A - \E n ) = p(A)E n (5.3) 

Da die Elemente von 

adj (A - XE n ) 

aus Unterdeterminanten von A gewonnen werden, bestehen diese Elemente aus Polynomen über 
A vom maximalen Grad 

n — 1 

Also gilt für geeignete n x n -Matrizen 


Bj , 1 < j < n — 1 

die folgende Beziehung: 

ac (j (A — XE n ) = B n _iX n 1 + ... + HiA + Bq (5.4) 

Außerdem kann man p(A) schreiben als 

p(A) = c n A n + ... + CiA + Co (5-5) 

Drückt man (5.3) mit Hilfe von (5.4) und (5.5) aus, erhält man 

{A — XE n )(B n _iX n 1 + ... + BiX + Bq) = (c n A” + ... + CiA + co)E n 

Multipliziert man die Terme auf beiden Seiten aus und vergleicht die Koeffizienten miteinander, 
erhält man folgende Gleichungen: 



— B n _ i 

— c n Ei 

AB n _ i 

— B n - 2 

= c n _ i E^ 

AB n _ 2 

— B n _ 3 

= C n _2-£'9 

AB 1 

- B 0 

= ciE, 

AB 0 


= c 0 E , 


Multipliziert man beide Seiten der ersten dieser Gleichungen mit A n , beide Seiten der zweiten 
mit A" -1 , allgemein beide Seiten der j-ten mit A n ~ 3+1 , und addiert sie, erhält man 

0 n ,n = C n X n + C n -iX n 1 + . . . + CiA = p(A) 


□ 
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Die Adjunkte in Lemma 5.2.1 läßt sich mit Hilfe der Koeffizienten des charakteristischen Poly¬ 
noms q{ A) von M ausdrücken. In Koeffizientendarstellung besitzt q{ A) die Form: 

q(X) = q n - iA” 1 + q n - 2 A" " + ...+ q\X + q$ 


Es gilt folgende Aussage: 


Lemma 5.2.3 


adj (M - X * £ n _i) 


J2 Xk M l ~ k ~ l qi 
k =0 l=k +1 


(5.6) 


Beweis Multipliziert man beide Seiten von (5.6) mit 

M — X * E n _ 1 , 

erhält man auf der linken Seite 


adj (M - X* E n _{) *(M - X* E n _ 1 ) . 
Dies ist nach Satz 3.6.3 gleich 


E n _ 1 * det (M — A * E n _i) 
= q(X) * E 7 . 


Auf der rechten Seite von Gleichung (5.6) erhält man 

n—2 n —1 

-CAf,-A *£„_!)) ^ A fc ^ M l ~ k ~ 1 qi 

(*1)^ ^ / k=0 i=fe+1 

Bei der Multiplikation erhält man für (*1) und (*2) im obigen je eine Doppelsumme: 


n—2 n —1 


n —2 


n— 1 


-^]A fe ^ M l ~ k qi + ^ A fc+1 ^ M l ~ k ~ 1 q l 

k —0 l = k -\-1 / c—0 /—/ c+1 

Durch Umordnen der Indizes der zweiten Doppelsumme erhält man 

71 — 2 71—1 71—1 71—1 


-J2 Xk M l ~ k qi + J2 A fc 


/c—0 Z=fc+1 


fc —1 Z=/c+l 


Nach Satz 5.2.2 gilt 


^2 M l qi = 0 


(5.7) 


(5.8) 


1 -0 


Somit kann man die linke Seite von Gleichung (5.8) zur zweiten Doppelsumme von Term (5.7) 
addieren und erhält 

71 — 2 71—1 71—1 71—1 


H M l ~ k qi + J2 A fc Ml ~ k 


<n 


fc=0 l=k +1 fc=0 l-k+1 

Wenn man nun die Vorzeichen der beiden Doppelsummen sowie die benutzten Indizes betrach¬ 
tet, erkennt man, daß sich der Gesamtterm vereinfacht darstellen läßt, da große Teile zusam¬ 
mengenommen 0 ergeben. Die Teile, die sich nicht auf diese Weise gegenseitig aufheben, lassen 
sich schreiben als 

71—1 

'y ) A E n —\qk , 

k =0 

was gleichbedeutend ist mit 

q{X) * E n _ 1 . 


Also stimmen die beiden Seiten von Gleichung (5.6) überein. 


□ 
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Die beiden Lemmata 5.2.1 und 5.2.3 führen zu folgendem Satz [Sam42]: 

Satz 5.2.4 (Samuelson) 

( n -2 n—1 \ 

53 x k 53 u ' k ~ l qi * s 

k—0 l=k+l / 

Beweis Lemma 5.2.3 angewendet auf Lemma 5.2.1 ergibt die Behauptung. 


(5.9) 

□ 


5.3 Determinantenberechnung mit Hilfe des Satzes von 
Samuelson 


Um Satz 5.2.4 zur Determinantenberechnung zu benutzen [Ber84], sind weitere Überlegungen 
notwendig, die in diesem Unterkapitel behandelt werden. 

Betrachtet man die Methodik des entstehenden Algorithmus, erkennt man Ähnlichkeit zu C- 
Alg. . Auch dort wird ein schon länger bekannter Satz mit Hilfe von zusätzlichen Überlegungen 
für eine parallelen Algorithmus verwendet. 

Zu beachten ist, daß in diesem Unterkapitel für die Multiplikation zweier n x n-Matrizen n 2+7 
Prozessoren in Rechnung gestellt werden (vgl. S. 15). 


Benutzt man die Koeffizientendarstellung für die charakteristischen Polynome von A und M, 
läßt sich Gleichung (5.9) umformulieren in 

n n—1 /n —2 n—1 \ 

5>7 A 1 = (a M - A) * 53 q,x l + R * 53 X k 53 M l ~ k ~ 1 q l \*S . 

i— 0 2—0 \k= 0 l=k -\-1 / 

Vergleicht man die Koeffizienten der X 1 auf beiden Seiten der Gleichung und definiert 


erhält man 


9-1 := 0 , 


Pn — Qn— 1 

(5.10) 

Pn-1 = O^l.lQn-l ~ Qn -2 

n—1 

(5.11) 

0 : Pi = ai t iq i -q i - 1 + 53 RM J ~ l ~ 1 Sq i 

(5.12) 


j=i+l 


Die Beziehungen zwischen den Koeffizienten, die diese Gleichungen beschreiben, kann man auch 
durch eine Matrizengleichung ausdrücken. Dazu wird Matrix Ct definiert als untere Dreiecks- 
Toeplitz-Matrix der Größe (n — t + 2) x (n — t + 1). Ihre Elemente werden definiert durch 


( c t)i,j 


-1 

i = 1 

a t ,t 

i = 2 

RtM l t ~ 3 S t 

i > 2 


Die Matrix hat also das folgende Aussehen: 


-1 0 


a t ,t -1 

Rt^t. n t,t 

R t M t S t R t S t 


RtM™-*- 1 S t 
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Insbesondere hat C- n die Form 


-1 
&n,n 


Mit Hilfe dieser Definition erhält man aus den Gleichungen (5.10), (5.11) und (5.12) die folgende 
Matrizengleichung: 


Pn 


Qn—1 

Pn-l 

= c\ 

Qn -2 

Po 


9o 


(5.13) 


Auf die gleiche Weise, wie man Satz 5.2.4 auf die Matrizen A und M anwendet, kann man 
diesen Satz auch auf die Matrizen M und M 2 , M 2 und M 3 , etc. anwenden und erhält so 
Matrizengleichungen, die in ihrer Form der Gleichung (5.13) entsprechen. 


Wendet man diese Matrizengleichungen aufeinander an, erhält man: 


=n^ ( 5 - 14 ) 

i= 1 

Um die Koeffizienten des charakteristischen Polynoms von A auf die geschilderte Weise zu 
berechnen, muß man also die Matrizen Ci berechnen und dann miteinander multiplizieren. 
Nach 2.4.4 ist damit auch die Determinante der Matrix A berechnet. 

Für jede (n — i + 2) x (n — i + 1)-Matrix Ci bei ist der (n — *)-elementige Vektor 

T t := [RiSi, RiMiSi, RiMfSi, m:=n-i- 1 (5.15) 

zu berechnen. Da also T n keine Elemente enthält, ist die Berechnung der Vektoren T) bis T n _i 
erforderlich. 

Man kann jeden Exponenten k eines Elementes 

R i * * Si 


Pn 

Pn-l 

PO 


von Ti in der Form 
mit 


k = u + v * yfrn 


0 < u < f y/m] 

0 < v < [y/m\ 

eindeutig darstellen. Man könnte statt y/m auch einen anderen Wert zwischen 0 und m nehmen. 
Jedoch führt die Wahl von yfm dazu, daß sich die Größe der Mengen aller u und v um höchstens 
1 unterscheidet. 


Um Ti effizient zu erhalten, kann man zunächst die den Mengen der u und v entsprechenden 
Vektoren 


Ui 


Ri, Ri Mi, RiMf, 



und 


Vi := 




i^rvsi 


berechnen und danach jedes Element des einen Vektors mit jedem Element des anderen multi¬ 
plizieren. 


Genau genommen werden auf diese Weise einige Werte zuviel berechnet, wie sich bei noch ex¬ 
akterer Analyse des Algorithmus zeigt. Es sind jedoch vernachlässigbar wenige. Die Berechnung 
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dieser Werte kann durch vernachlässigbar geringen zusätzlichen Aufwand verhindert werden. 
Um die Darstellung des Algorithmus nicht unnötig unübersichtlich zu machen, werden diese 
Werte nicht weiter beachtet. 

Vor Beginn der Rechnung wird ein 

e eQ, 0 < e < 0.5 

festgelegt 3 . O. B. d. A. sei e so gewählt, daß gilt 4 

3p G IN : p * e = 0.5 . 

Die Wahl von e beeinflußt das Verhältnis zwischen der Anzahl der Schritte und der Anzahl der 
dabei beschäftigten Prozessoren. Dies wird weiter unten durch die Analyse deutlich. 

Für den Rest dieses Unterkapitels gelte die Vereinbarung, daß mit 

a b 

der Wert 

Kl 

gemeint ist. 

Mit Hinweis auf die Bemerkungen im Anschluß an die Behandlung der Matrizenmultiplikation 
in Satz 1.5.3 wird im folgenden für die Multiplikation zweier n x n -Matrizen ein Aufwand von 

7s(riog(n)] +1) 


Schritten und 

7p7l 2+7 

Prozessoren in Rechnung gestellt. 

Im folgenden ist mit T, U und V jeweils Xi, Ui bzw. Vj gemeint, wobei 1 < i < n gilt. 
Um den Vektor U zu berechnen, benutzen wir folgenden iterativen Algorithmus 5 : 


• Der Vektor Z a wird wie folgt definiert: 

Z n := 


Ri, RiMi, R t M?, • ■ •, RiM T“ _1 


Das bedeutet, es gilt 


Zq — [Ri] 


Das Ziel ist es, i?o .5 = U zu berechnen. Der Vektor Zq ist bekannt, da Ä; Teil der Eingabe 
ist. 


Wenn Z a bekannt ist, im ersten Schleifendurchlauf also Z 0l dann wird daraus Z a+e wie 
folgt berechnet: 


— Berechne 


y a+ e ■ = 


M™ , M~ m , Mf m 


Nach 1.4.1 in Verbindung mit 1.5.3 erhält man für die Anzahl der Schritte 


7 s , |"log(m e )l(|"log(?u)l + 1 ) 

< 7 s[(e|"log(m)] + l)([log(m)] + 1)] 

= 7 'S [eflog(m )] 2 + (e + 1 ) |"log(m)] + l] 

und für die Anzahl der Prozessoren 


7 p L0.75m e J m 2+7 < 7 pm 2+1+e . 

Die dafür nötige Startmatrix M“ erhält man als Nebenergebnis aus der Berechnung 
von Y a . Die Startmatrix für die Berechnung von Y f ist AR. 

3 ein Wert e > 0.5 ist möglich, jedoch von seinen Auswirkungen her uninteressant 

4 erfüllt e diese Bedingung nicht, wird dadurch die Analyse des Algorithmus unnötig unübersichtlich 

5 zur Vereinfachung der Darstellung werden keine ganzzahligen Werte zur Indizierung benutzt 
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— Der Vektor X a+e wird folgendermaßen definiert: 


Xa+e • 


RiM? , RiM i 


m a +1 


RiM ; 


m “+2 


■, iWf 


Es wird nun X Q+e aus Z Q und V a+e berechnet. 

Der Vektor besitzt m“ Elemente, die ihrerseits Vektoren der Länge m darstellen. 
Sie werden mit 

2a. 1, Za,2) ■ ■ ■ ■ 2a,m a 

bezeichnet. Der Vektor y a+e besitzt m e Elemente. Diese Elemente sind m x rn- 
Matrizen und werden mit 


Va+e, 1, Ua+e,2) • • • i |/a+e,m e 


bezeichnet. 

Der Vektor X Q+e wird wie folgt berechnet: 

Parallel für * := 1 bis m e — 1 : 

Parallel für j := 1 bis m“: 

^'a+e,(I —• 2 a ,-j * Va+e,i 

Bei dieser Berechnung fällt auf, daß (/ a +e,m e nicht verwendet wird. Diese Matrix 
bildet die Startmatrix für die Berechnung von Y a+ 2 e im nächsten Schleifendurchlauf 
(s. o.). 

Für die Analyse des Aufwandes der Berechnung von I a+f wird Z a als Matrix be¬ 
trachtet. Die z a j bilden die Zeilenvektoren dieser Matrix. So gesehen sind also m e 
Matrizenmultiplikationen durchzuführen. Dies kann von 

7 pm 2+7+e 

Prozessoren in 

7 S riog(m)l + 1 

Schritten durchgeführt werden. 

— Die ersten m a Elemente des in diesem Schleifendurchlauf gesuchten Vektors Z a+e 
werden durch die Elemente des Vektors Z a gebildet und alle weiteren durch die 
Elemente des soeben berechneten Vektors Xo,_|_ e . 

Betrachtet man den Aufwand zur Berechnung von Y a+e und X a+e zusammen, erhält man 
für die Berechnung von Z a+e aus Z a 

7 s [eRogfm)! 2 + ( e + 2 )flog(rn)] + 2] 


Schritte und 

7 P m 2+1+€ 

Prozessoren. 

• Insgesamt erfolgen 

1 

2e 

Schleifendurchläufe. Der Aufwand zur Berechnung von U beträgt deshalb 

—[eflog(TO)l 2 + (e + 2)|"log(m)] + 2] 

2 \ 2 " 

1 + - J flog(m)l + - 


< 0.57s 


[log(m)] s 


Schritte und 

7 pm 2+7+e 


Prozessoren. 
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Im Anschluß an die Berechnung von U erfolgt die Berechnung von V auf die gleiche Weise. 
Der einzige wesentliche Unterschied zwischen den beiden Berechnungsvor^ängen ist die andere 
Startmatrix zur Berechnung des Y e entsprechenden Vektors. Hier wird Af™ statt M t benötigt. 
Man erhält M™' aus A7, mit Hilfe der Binärbaummethode nach 1.5.1. Dies kann in 

7 s [log(m°" 5 )J (riog(m)l + 1) 

< 7s l~0-5 riog(m)] (|"log(m)] + 1.)] 

= 7 s |"0.5(|"log 2 (m)] + |"log(m)] + 1)] 

Schritten von 


7 p |~0.5m°" 5 TO 2+7 ] 

< 7 p |~0.5m 2 " 5+7 "| 

Prozessoren geleistet werden. Ist die Startmatrix berechnet, ist der weitere Aufwand zur Be¬ 
rechnung von V gleich dem Aufwand zur Berechnung von U. Also kann V insgesamt in 6 


7 s 

= 7s 


0.5(|"log(?u)] 2 + |~log(m)"| + 1) + 0.5 ( |"log(r?z)] 2 + ( 1 


riog(m)] 


1 


1 


l’log(m)] + 1 + - |"log(m)] H-1- 0.5 


Schritten erledigt werden. Die Anzahl der Prozessoren beträgt 


max I 7pm 2+7+e , 7 p |~0.5m 2 ' 5+7 

V Term 1 Term 2 

Da mit steigendem m Term 2 stärker wächst als Term 1, wird die Analyse mit Term 2 für die 
Anzahl der Prozessoren fortgesetzt. 

Parallel zur Berechnung von U wird zuerst M" 1 und mit Hilfe dieser Matrix dann V berechnet. 
Der Aufwand dafür beträgt insgesamt 

1 + -^ l’log(m)] + - + 0.5 


7 s 


[log(m)]" 



Schritte und 

7p (?n 2+7+e + [0.5 to 2 - 5+7 ]) 

Prozessoren. 

Um den nach (5.15) gesuchten Vektor T zu erhalten, müssen noch die Elemente der Vektoren 
U und V , die ja ihrerseits wiederum Vektoren darstellen, miteinander multipliziert werden. Die 
Vektoren U und V besitzen eine Länge von m 0 ' 5 . Die Multiplikation zweier Elemente dieser 
Vektoren können analog zur Matrizenmultiplikation in 1.5.3 in 

|"log(m)l + 1 


Schritten von 


m 


Prozessoren erledigt werden. Insgesamt sind 

to 0 " 5 * to 0 ' 5 = m 

solcher Multiplikationen durchzuführen. Die Berechnung von T aus U und V kann also in 

l’log(m)] + 1 

6 Da die Terme, die die Anzahl der Schritte und Prozessoren beschreiben, bereits nach oben abgeschätzt 
sind, wird bei der Zusammenfassung von Termen, die durch Gaußklammern eingefaßt sind, auf eine weitere 
Abschätzung verzichtet. 
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Schritten von 


Prozessoren durchgeführt werden. 

Betrachtet man den Gesamtaufwand zur Berechnung von U, V und T, kommt man auf 


7 s 


1 1 


7s 


1 1 


flog (?T7.) ~| + H-h - |"log(m)] H-(-1- 0.5 


7s 


Schritte und 

7 p (to 2+7+£ + |~0.5to 2 " 5+7 ~| ) < 7 p (m 2+7+£ + 0.5 to 2 " 5+7 + l) (5.16) 

Prozessoren. 


Nach der obigen Analyse der Berechnung einer der Vektoren kann die parallele Berechnung aller 
Vektoren T\ bis T„_ i in 


7 s 


[log(?r 


2)1 2 + f 1 + 7“ 

V 7 S 



2)] H- 1 -b 0.5 

e 7s 


(5.17) 


Schritten durchgeführt werden. Da die Berechnung eines Vektors Ti für i > 1 bei gleichem e 
schneller ist als die Berechnung von T), ist es möglich, dadurch Prozessoren zu sparen, daß man 
e für jeden Vektor T) verschieden wählt, und zwar als Funktion von 


• der Größe n der Eingabematrix A, 

• der Länge m + 1 des jeweiligen Vektors Ti und 

• dem e, daß zur Berechnung des Vektors Tj verwendet wird. 

Das separat für jeden Vektor Tj zu wählende e wird mit' e m bezeichnet. 

Da die Vektoren T für m < n — 2 berechnet werden sollen, muß für jedes e m mit e m ^ e die 
Bedingung m < n — 3 erfüllt sein. Da gleichzeitig in > 1 erfüllt sein muß, wird für die folgenden 
Analysen n > 4 angenommen. Andernfalls ist die Anwendung der Idee zur Wahl der e m nicht 
sinnvoll. 

Wie e m zu wählen ist, ergibt sich aus Term (5.17). Es muß gelten: 

riog(m)] 2 + (l + — + —) riog(m)] + — < riog(?r - 2)] 2 + (l + — + |"log(n - 2)] + - 
\ 'iS ) t-m \ T5 e e 

Löst man diese Ungleichung nach e m auf erhält man: 

e > _ [log(m)l + 1 _ 

[l°g( n - 2)1 2 + (l + ^ + y) (log(?r - 2)1 + i - [log(m)] 2 — (l + [log(m)] 

. (5 - 18) 

Die Gaußklammern in dieser Ungleichung führen zu einigen wichtigen Konsequenzen für n, m 
und e m . Es gelte dazu 


k G IN 

1 < 2 k < m i < 2 k+1 < n - 2 
1 < 2 k < m 2 < 2 k+1 <n- 2 . 

Aus (5.18) folgt dann 

i — ^rri2 • 

Das bedeutet insbesondere, daß es u. U. einige m mit m < n — 3 gibt, für die gilt 

€m — ^ • 


7 Es wurde bereits definiert: m := n — i — 1. 
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Der ungünstigste Fall tritt für 
ein. Bei diesem Fall ist nur für 

die Bedingung 
erfüllt. 


n - 2 = 2 k+1 

n — 2 

m < —-— 


< e 


Für die weitere Analyse ist es an dieser Stelle sinnvoll, die Gaußklammern im Term auf der 
rechten Seite von (5.18) zu beseitigen. Dazu wird der Term nach oben abgeschätzt. 

Terme, die in Gaußklammern eingefaßt sind, kann man mit Hilfe der Beziehung 

a < [~a] <a + l (5.19) 


abschätzen. Es gilt jedoch 


riog(z)l 

< log(x) + 1 
= log(2a;) . 


Zu beachten sind hier die Konsequenzen, wenn die Abschätzung mit Hilfe von (5.19) vorge¬ 
nommen werden. Falls n — 2 eine Zweierpotenz ist, ergibt die auf diese Weise abgeschätzte 
Ungleichung (5.18) nur für 


Werte für e rn , so daß 


e m < e . 


Eine Verbesserung dieser Abschätzung der Gaußklammerfunktion ist wünschenswert. 


Dazu wird definiert, daß eine Funktion f(x) konkav auf einem Intervall I ist, falls für ihre zweite 
Ableitung f"(x) gilt: 

Wx G I : f{x) < 0 . 


Soll die Gaußklammer einer konkaven Funktion h{x) gebildet und die Fläche unter der resul¬ 
tierenden Kurve berechnet werden, so läßt sich der Ausdruck auch durch 


| h(x)dx] < / (h(x)+0.5)dx 


nach oben abschätzen. In Abbildung 5.1 ist dies verdeutlicht. Dort ist Fläche 1 größer als Fläche 
2. Somit kommen wir auf 


J r io gO)i dx 

< j (log(x) + t).5)dx 
= J \og(V2x) dx . 


(5.20) 


Ist der abzuschätzende Gaußklammerterm Teil einer Funktion 


h 2 ({h(x)] , x) , 

so läßt sich die beschriebene Abschätzung durchführen, falls h 2 monoton ist. Diese Bedingung 
ist bei den folgenden Anwendungen erfüllt. 

Für die folgenden Untersuchungen wird die Funktion 
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Abbildung 5.1: Integration der Gaußklammer einer konkaven Funktion 


eingeführt. Sie sei im Riemann’schen Sinne integrierbar [BS87] (S. 289) auf dem Intervall 

( — 00 , 00 ) 


und wird als Platzhalter für die Funktion verwendet, die schließlich zur Abschätzung der Gauß¬ 
klammerfunktion benutzt wird. Je genauer sie die Gaußklammerfunktion abschätzt, umso besser 
werden die Analyseergebnisse. 


Mit Hilfe von (5.18) wird folgende Funktion zur Berechnung von e m bei gegebenen n und e 
definiert: 


f(m) 


_ ff(log(m)) + 1 _ 

ff 2 (log ( n - 2)) + (l + ^ + i) ff (log (n - 2)) + i - ff 2 (log(m)) - (l + ff(log(m)) 


Mit Hilfe dieser Funktion kommt man anhand von (5.16) für die Anzahl der Prozessoren zur 
Berechnung aller Vektoren T auf: 


4 + (n - 2) 2+7+£ + ——j 


9'i2.5+7 ™_3 / „.2.5+7 

" / TO 2 +7+/(m) + + x 


1 1: = 


< 4 + (n — 2) 2+7+£ + 


(n- 2) 2 ' 5 + 7 


E 

m— 2 
n —2 


2 • 7 - ; firn) 


.2,5+7 


+ 1 ) dm 


_ i i I TI 2 . 

= ti + m 2 + 


i 


7+27 


.3.5+7 


7 2+ 7 +f(m) dr 


1 3 — 


= t 2 + / e (2+7+/(m))ln(m) dm 


(5.21) 

(5.22) 


Für die Integration von sind 3 Methoden von Bedeutung: 


Numerische Berechnung 

Diese Methode ist für gegebene n und e eine gangbare Möglichkeit [EMR88] (Kap. 9). 
Für eine allgemeine Analyse ist sie jedoch nicht geeignet. 
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Analytische Berechnung 

Bezeichne £4 die erste Ableitung von 

(2 + 7 + f(m)) ln(ra) . 

Bezeichne die erste Ableitung des zu bestimmenden Terms t. 5 . Da t% eine Exponenti¬ 
alfunktion ist, muß die gesuchte Stammfunktion, die Form t 3^5 besitzen. Die Ableitung 
dieses Ausdrucks ergibt 


(hh)' = £ 3^5 + ht'5 = h (tjts + t' 5 ) . 

Da der unterstrichene Teil den Wert 1 besitzen muß, ist die Differentialgleichung 

«5 = 1 - * 4*5 

zu lösen. Dies ist eine explizite gewöhnliche Differentialgleichung erster Ordnung [BS87] 
(S. 414 ff.). 

Man gelangt zu der Vermutung, daß zu 1 3 keine Stammfunktion existiert, da sowohl 
die Integration der Differentialgleichung, als auch die Integration von t$ mit Hilfe der 
Eigenschaften unbestimmter Integrale [BS87] (S. 295) nicht zu einem Ergebnis zu führen 
scheinen. Unterstützt wird diese Vermutung durch die Tatsache, daß für 


keine Stammfunktion existiert. 


Abschätzung der Stammfunktion nach oben 

Diese Methode ist am besten geeignet und wird im folgenden benutzt. Dazu wird der 
oben erwähnte Term f 5 so bestimmt, daß gilt 

^ 4^5 “t - t!^ A 1 . (5.23) 


Der Nenner von /(m) wird mit te bezeichnet, der Zähler mit £ 7 . Die Ableitung von t% ergibt: 


, ,27 

^3 = ^3 - 1 - 


(s'(log(m))ü$a + <M + i ) (6 


t 2 


t'j ln(m) 


( 2 3 (log(m)) 3 '(log(m)) ( 1+ 3^) 9 ' (I ° g(m)) 

1 m ln(2) ' m ln(2) 

t 2 

r 6 


Wie bereits beschrieben wurde, ist es an dieser Stelle möglich 

g(x) := x + 0.5 


(5.24) 


als obere Abschätzung der Gaußklammerfunktion zu verwenden. Es ist zu beachten, daß diese 
Abschätzung nicht für die Berechnung von e m bei der Anwendung des Algorithmus in einer 
konkreten Situation benutzt werden darf. Die Benutzung von (5.24) an dieser Stelle ist nur 
zulässig, weil die Abschätzung des gesamten Integrals in (5.22) das Ziel ist. 


Wie ebenfalls bereits beschrieben wurde, ist darauf zu achten, daß die auftretenden Werte für 
e m kleiner oder gleich e sind. Damit dies der Fall ist muss wegen der mit (5.24) gewählten 
Abschätzung gelten: 


k^v^m) 

< 

|"log(n - 2)1 

log(m) 



r (n- 2 

< 



in 

< 

c 

z 

,MW)1 
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Ungleichung (5.23) wird erfüllt, wenn man 


t$ = m 

wählt. Die Gültigkeit dieser Behauptung ergibt sich insbesondere aus der Betrachtung der 
Größenordnungen der Zähler und Nenner in der Ableitung von t 3 . 

So erhält man durch Abschätzung von (5.22) nach oben für die Anzahl der Prozessoren: 


ä L Iog ( v#)J 


TO 2+7+0 ' 5 dm - 


e (2+7+/(m)) ln ( m )d r 


< t 2 + 


-WA/#)] 


3.5 + 7 


- 9) 2 - 5 +'r 


to 2 +7+/("») to 


ä L IO *(+7#)J 


4 + (n - 2 ) 2+7+c + ——y 


,3+7+/(m) 


7 + 2 7 

| 2 N^)J 


3.5 + 7 


iWwr). 


Dieser Term wird mit tg bezeichnet. An ihm erkennt man, daß die Anzahl der Prozessoren mit 
wachsendem n asymptotisch 


7 + 2 7 


(n — 2) 3 


beträgt. 


Schließlich müssen noch die Matrizen C\ bis C n miteinander multipliziert werden. Dies geschieht 
mit Hilfe der Binärbaummethode nach 1.5.1. Es wird definiert 


/ n 

U ■= L 2 J ■ 


Da nach 5.1.1 bei allen Multiplikationen Dreiecks-Toeplitz-Matrizen verknüpft werden und Ci 
eine (n — i + 2) x (n — i + 1)-Matrix handelt, können diese Multiplikationen in 


Schritten von weniger als 


(|~log( n + 1)1 + 1 ) flog(n)l 


y~^(n — 2 k + 2) * (n — 2k + 1) 




k= 1 fe=1 

4.6.1,_4.6.2 A n'(n' + l)(2n' + 1) 0 n'(n' + 1) 

6 2 

Prozessoren durchgeführt werden. Für ein gegebenes n ist der Wert dieses Terms ist kleiner als 
der Wert von t 3 . 

In Verbindung mit 2.4.4 ergibt sich als Endergebnis der Analyse, daß mit Hilfe des in diesem 
Kapitel vorgestellen Algorithmus die Determinante einer n x n-Matrix in weniger als 8 


1 1 


_l_ V 7S £ 

8 Summe von (5.17) und (5.25) 


1 1 


7 5 [log(n - 2)] + H-h - [log(n - 2)] H-1-h 0.5 + (|"log(n + 1)] + 1) |"log(n)] 


e 7 s 
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5.3 Determinantenberechnung mit Hilfe des Satzes von Samuelson 


Schritten von weniger als tg Prozessoren berechnet werden kann. 

Da in der Praxis für die Matrizenmultiplikation Satz 1.5.3 statt der in [CW90] angegebenen 
Methode benutzt wird, ist für diesen Fall in allen obigen Termen 

7 = 7s = 7 p = 1 


zu setzen. 

Vergleicht man B-Alg. mit C-Alg., BGH-Alg. und P-Alg., fällt wiederum das Fehlen von Fall¬ 
unterscheidungen auf. Weiterhin werden wie bei BGH-Alg. keine Divisionen verwendet, so daß 
B-Alg. auch in Ringen anwendbar ist. 

Betrachtet man die Aufwandsanalyse, so erkennt man, daß B-Alg. leicht schlechter ist als C-Alg. 
und deutlich besser als BGH-Alg. . In Kapitel 6 wird P-Alg. in diese Rangfolge eingereiht. 



Kapitel 6 


Der Algorithmus von Pan 


In diesem Kapitel wird der Algorithmus von V. Pan [Pan85] zur Determinantenberechnung 
vorgestellt. Er kommt ebenfalls ohne Divisionen 1 aus und berechnet die Determinante iterativ. 
Auf diesen Algorithmus wird mit P-Alg. Bezug genommen 2 . 

Man erhält insbesondere durch Variation der in den Unterkapitel 6.5 und 6.6 dargestellten 
Inhalte einige weitere Versionen des Algorithmus. Für eine vollständige Darstellung müssen alle 
diese Varianten beschrieben und auf ihre Effizienz hin untersucht werden 3 . Da dies jedoch den 
Rahmen dieses Textes sprengt, beschränken sich die folgenden Darstellungen auf die effizienteste 
Version des Algorithmus. 

P-Alg. bietet erheblich mehr Variationsmöglichkeiten als C-Alg., BGH-Alg. und B-Alg., die, wie 
erwähnt, nicht alle hier behandelt werden können. Vergleicht man P-Alg. von seiner Methodik 
her mit den drei anderen, so erkennt man Ähnlichkeiten zu BGH-Alg. . In beiden Algorithmen 
werden mehrere auch separat bedeutsame teilweise schon länger bekannte Verfahren zusammen 
verwendet. Von diesen Verfahren hebt sich lediglich die in Unterkapitel 6.5 dargestellte Methode 
zur Berechnung einer Näherungsinversen ab. Sie wurde in [Pan85] erstmalig veröffentlicht. 


6.1 Diagonalisierbarkeit 


In diesem Unterkapitel wird die Diagonalisierbarkeit von Matrizen behandelt. Es ist für das 
Verständnis des in diesem Kapitel dargestellten Algorithmus zur Determiantenberechnung nicht 
unbedingt erforderlich und kann daher beim Lesen auch übersprungen werden. Im folgenden 
werden jedoch einige Hintergründe der im Unterkapitel 6.3 dargestellten Methode von Krylov 
näher beleuchtet, die ein paar Zusammenhänge klarer werden lassen. 

Literatur zu diesem Thema ist neben den in Kapitel 2 genannten Stellen auch [Zur64] S. 169 ff 


Zum Problem der Diagonalisierbarkeit 4 gelangt man über den Begriff der Basis eines Vektor¬ 
raumes. Da es sich dabei um Grundlagen der Linearen Algebra handelt, erfolgt die Darstellung 
vergleichsweise oberflächlich. 

Sei K ein Körper und V ein K- Vektorraum. Seien k±, k 2 , •.., k n £ K\{0} und Vi, v 2 , ■ ■ ■, v n £ 
V. Dann wird 

kiv\ + k 2 v 2 + ■ ■ ■ + k n v n (6.1) 

als Linearkombination der Vektoren v\ bis v n bezeichnet. Sei 0 m der Nullvektor in V. Falls für 
die Vektoren die Bedingung 


kiVi + k 2 v 2 + ... + k n v n = 0 m =4» ki = k 2 = ... = k n = 0 

1 vgl. Bemerkungen in 3.8 
2 vgl. Unterkapitel 1.3 

3 Näheres dazu ist insbesondere in [PR85b] zu finden 
4 Definition s. u. 
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6.1 Diagonalisierbarkeit 


erfüllt ist, werden sie als linear unabhängig bezeichnet, ansonsten als linear abhängig . Falls 
jedes Element von V als Linearkombination der Vektoren v\,...,v n darstellbar ist, werden 
diese Vektoren als Basis bezeichnet. 

Für alle Basen gilt die Aussage: 

Je zwei Basen eines A"-Vektorraumes bestehen aus dergleichen Anzahl von Vektoren. 


Sei B die Basis des A"-Vektorraumes V. Dann wird die Anzahl der Vektoren, die B bilden, als 
Dimension von V , kurz dim(V), bezeichnet. 

Zur Darstellung von Elementen eines Vektorraumes V wählt man sich eine Basis und beschreibt 
jedes Element des Vektorraumes als Linearkombination der Elemente der Basis. Sei n die Di¬ 
mension des Vektorraumes. Dann kann man auf diese Weise jedes Element von V als n-Tupel 
von Elementen des zugrunde liegenden Körpers K betrachten. Man erhält die Vektorschreib¬ 
weise: 

ki 

k2 

kn 

Die Basis der Form 




wird als kanonische Basis bezeichnet. 

Zur Betrachtung der Beziehungen verschiedener Basen zueinander werden diese Basen ihrerseits 
bzgl. der kanonischen Basis dargestellt. 

Wird ein Vektor v bzgl. einer Basis B dargestellt, so wird dies folgendermaßen ausgedrückt: 

Ul 

v n 

Werden Vektoren zu Matrizen zusammengefaßt, so wird die gleiche Schreibweise auch für diese 
Matrizen verwendet. 

Sei V ein AT-Vektorraum der Dimension n und W ein Af-Vektorraum der Dimension m. Ein Er¬ 
gebnis der Linearen Algebra lautet, daß dann die Menge aller Ar-Vektorraumhomomorphismen 5 
/ 

/ : V —> W 

isomorph ist zur Menge aller m x n -Matrizen A, wenn man die Abbildung definiert als 6 

E fl 

j =1 a i ,j v j 


E n 

j=l a m,j v j 

5 also die Menge aller strukurverträglichen linearen Abbildungen 

6 Dies entspricht der Matrizenmultiplikation (vgl. 1.5.3), wenn man den abzubildenden Vektor v als n x 1- 
Matrix betrachtet (vgl. 1.5.3). 
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Die Untersuchung der A'-Vektorraumhomomorphismen kann man also anhand der entsprechen¬ 
den Matrien vornehmen. Im folgenden sind nur quadratische Matrizen von Interesse. Deshalb 
werden in den weiteren Ausführungen nur diese Matrizen beachtet. 

Stellt man die Vektoren einer Basis By bzgl. einer anderen Basis B\y (normalerweise der 
kanonischen Basis) dar und betrachtet sie als Spaltenvektoren einer Matrix 

[Bv]b w , 

so erkennt man beim Vergleich von (6.1) und (6.2) miteinander, daß man einen bzgl. By dar¬ 
gestellten Vektor x in seine Darstellung bzgl. B\y umrechnen kann durch 

[x]b w = B v [x] . (6.3) 


Man erkennt also, daß man eine Basis auch als Vektorraumhomomorphismus betrachten kann. 
Die umgekehrte Betrachtungsweise ist natürlich nicht möglich. 

Um zum Begriff der Diagonalisierbarkeit zu gelangen, betrachten wir nun, was passiert, wenn 
man Basen austauscht und die Darstellungen bzgl. der neuen Basen vornehmen will. 


Seien V und W jeweils A'-Vektorräume sowie By und Bw jeweils Basen dieser Vektorräume. 
Sei 


f : V —>W 


ein Vektorraumhomomorphismus und A die entsprechende Matrix. Es gelte 


yi 


X\ 

2/2 

= A 

X 2 

. V « . 

Bw 

. X n 


Wechselt man nun zu den Basen By und Bw und stellt die neuen Basen bzgl. der alten durch 
die Matrizen C und D dar, so gilt entsprechend (6.3): 


Xi 

X2 

= C 

X\ 

X2 

. X n 

B v 

. X n 

2/i 

2/2 

= D 

2/1 

2/2 

. 2/n . 

Bw 

. 2/n . 


Gleichung (6.4) bekommt also folgendes Aussehen: 



2/1 


X\ 

D 

2/2 

= AC 

X 2 


. 2/n . 

Bw 

. X ~n 


Multipliziert man beide Seiten mit D , erhält man: 


2/i " 


X\ 


2/2 

= D- 1 AC 

X 2 


. 2/n . 

Bw 

. X n 

B V 


Die Abbildung f wird bzgl. der neuen Basen By und Bw also durch die Matrix A' := D 1 AC 
dargestellt. Wählt man die neuen Basen geeignet, so ist es immer möglich zu erreichen, daß A' 
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6.1 Diagonalisierbarkeit 


die Form 

ai i 0 • • • 0 

0 a 2,2 

: 0 
0 • • • 0 a' nn 

bekommt. Eine Matrix dieser Form wird als Diagonalmatrix bezeichnet. 

Betrachtet man nun statt einer Abbildung zwischen den Vektorräumen eine Abbildung in V und 
wechselt die Basis von V, so besitzt die Abbildung bzgl. der neuen Basis die Form C~ 1 AC. Es 
stellt sich wiederum die Frage, ob es möglich ist, die neue Basis so zu wählen, daß C~ 1 AC eine 
Diagonalmatrix ist. Eine Matrix A, für die das möglich ist, wird als diagonalisierbar bezeichnet. 

Um eine Beziehung zur Methode von Krylov (siehe Unterkapitel 6.3) herstellen zu können, 
folgt eine Charakterisierung der Diagonalisierbarkeit. Dazu greifen wir auf den bereits in 2.3.1 
definierten Begriff des Unterraumes zurück. Anhand dieser Definitionen erkennt man, daß alle 
zu einem Eigenwert gehörenden Eigenvektoren zusammen mit dem Nullvektor einen Unterraum 
des zugrunde liegenden Vektorraumes bilden. Er wird als Eigenraum bezeichnet. 

An dieser Stelle werden die Eigenwerte mit der Diagonalisierbarkeit in Verbindung gebracht: 

Satz 6.1.1 Eine n x n-Matrix A ist genau dann diagonalisierbar, wenn der zugrunde liegende 
K- Vektorraum V eine Basis aus Eigenvektoren von A besitzt. 

Beweis Wir verzichten hier auf einen ausführlichen Beweis. Die Ideen für die beiden Be¬ 
weisrichtungen sind: 

• Ist eine Matrix A diagonalisierbar und wechselt man die Basis so, daß A Diagonalge¬ 
stalt bekommt, werden dadurch die Vektoren der kanonischen Basis zu Eigenvektoren der 
Matrix. 

• Bilden die Eigenvektoren einer Matrix A eine Basis von V und benutzt man diese Basis 
zur Darstellung bekommt A die Form einer Diagonalmatrix. 


□ 


Satz 6.1.2 Seien Ai, ..., A k paarweise verschiedene Eigenwerte der n x n-Matrix A. Sei i\ 
ein Eigenvektor zu A*. Dann sind die Eigenvektoren v\, ..., Vk linear unabhängig. 


Beweis Der Beweis erfolgt durch Induktion nach der Anzahl der verschiedenen Eigenwerte 
k: 

k = 1 

Für diesen Fall ist die Behauptung offensichtlich richtig. 

k > 1 

Die Behauptung gelte für k — 1 und sei für k zu zeigen. Induktionsvoraussetzung ist also, 
daß v\, ..., Vk~i linear unabhängig sind. Angenommen v±, ..., Vk sind linear abhängig. 
Dann existieren eindeutig bestimmte r i,.. •, ru-i G K mit 


Vk = T\V\ -\ - 1 - r k -iv k -i ■ (6.5) 

Da Vk nicht der Nullvektor sein kann, muß mindestens einer der Faktoren r\,...,rk 
ungleich Null sein, z. B. r.;. 
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Betrachtet man A als Abbildung und wendet diese Abbildung auf (6.5) an, so kann 
man, da es sich um Eigenvektoren handelt, auch mit den Eigenwerten multiplizieren 
und erhält 

A kVk = Xinvi H- 1 - A k r k v k ■ 

Ist nun A;,. = 0, dann muß wegen der Verschiedenheit der Eigenwerte Xi ^ 0 sein und 
man erhält einen Widerspruch zur linearen Unabhängigkeit von V \, ..., Vk- 

Ist Xk ^ 0 erhält man einen Widerspruch zur Eindeutigkeit der Darstellung von Vk- 


□ 


Aus 6.1.1 und 6.1.2 ergibt sich: 


Folgerung 6.1.3 Die maximale Anzahl verschiedener Eigenwerte einer Matrix ist gleich der 
Dimension des zugrunde liegenden Vektorraumes. 

Besitzt eine Matrix maximal viele verschiedene Eigenwerte, so ist sie diagonalisierbar. 


Für die zweite Folgerung benötigen wird einen weiteren Betriff. Seien dazu T und U Unterräume 
des A'-Vektorraumes V. Dann wird die Menge 

{w | 3k, l € K, t € T, u £ U : w = kt + lu} 

aller Linearkombinationen zweier Vektoren aus T und U als direkte Summe von T und U 
bezeichnet. Anhand von 2.3.1 erkennt man, daß die direkte Summe zweier Unterräume von V 
wiederum ein Unterraum von V ist. 

Somit erhält man aus 6.1.1 und 6.1.2: 


Folgerung 6.1.4 Eine Matrix ist genau dann diagonalisierbar, wenn die direkte Summe aller 
Eigenräume der Matrix den zugrundliegenden Vektorraum ergibt. 


Die Bedeutung der in diesem Unterkapitel dargestellten Sachverhalte wird deutlich, wenn man 
sie mit den in Unterkapitel 6.3 erwähnten Einschränkungen für die Verwendbarkeit der Methode 
von Krylov zur Berechnung der Koeffizienten des charakteristischen Polynoms vergleicht. 


6.2 Das Minimalpolynom 


Die Methode von Krylov (siehe 6.3) dient zur Bestimmung der Koeffizienten des Minimalpoly¬ 
noms einer Matrix. Deshalb wird hier dieses Minimalpolynom zunächst näher betrachtet. Eine 
tiefergreifende Behandlung befindet sich z. B. in [Zur64] S. 233 ff . 

In Satz 5.2.2 wird bewiesen, daß eine n x n-Matrix A ihre eigene charakteristische Gleichung 
erfüllt. Diese Beobachtung führt zu: 


Definition 6.2.1 Das Polynom m(X) mit dem kleinsten Grad, für das die Gleichung 

m(A) = 0„ 

erfüllt ist, wird Minimalpolynom genannt. Die Gleichung wird als Minimumgleichung bezeichnet. 


Um die Methode von Krylov verstehen zu können, müssen wir verschiedene Eigenschaften des 
Minimalpolynoms beleuchten: 



6.2 Das Minimalpolynom 


Satz 6.2.2 Sei A eine n x n-Matrix und /(A) ein Polynom. Es gelte 

f(A) = 0 n . 

Dann ist /(A) ein Vielfaches des Minimalpolynoms m(A) von A. 


Beweis Angenommen die Behauptung ist falsch. Dann entsteht bei der Division von /(A) 
durch m(A) ein Rest r(A) und für ein geeignetes Polynom q( A) gilt: 

/(A) = q(X)m(X) + r(A) . 


Der Grad von r(A) ist kleiner als der Grad von m( A). Wird nun in diese Gleichung A eingesetzt, 
erhält man 


0» — 0 ra + r(A) . 


Also muß auch gelten 


r(A) = 0„ 


Da jedoch das Minimalpolynom das Polynom mit dem kleinsten Grad ist, das diese Bedingung 
erfüllt, führt dies zu einem Widerspruch. □ 


Aus 5.2.2 und 6.2.2 ergibt sich: 

Folgerung 6.2.3 Das charakteristische Polynom ist ein Vielfaches des Minimalpolynoms. 

Da wir die Methode von Krylov zur Berechnung des charakteristischen Polynoms verwenden 
wollen, müssen wir wissen, unter welchen Umständen es mit dem Minimalpolynom zusam¬ 
menfällt. Diese Frage beantwortet der folgende Satz: 


Satz 6.2.4 Sei A eine n x n-Matrix. Es wird definiert.: 

C := A — XE n . 


Sei 

p{ A) = det(C') 

das charakteristische Polynom von A. Es gelte 


m(A) 


pW 

qW 


( 6 . 6 ) 


Das Polynom m(A) ist genau dann das Minimalpolynom von A, wenn q( A) der größte gemein¬ 
same Teiler (ggT) der Determinanten aller (n — 1) x (n — 1)- Untermatrizen von C ist. 


Beweis Der Beweis erfolgt in zwei Schritten: 

• Sei zunächst q{ A) der ggT Determinanten der Untermatrizen. Es ist zu zeigen, daß dann 
to(A) das Minimalpolynom ist. 

Mit Hilfe von Satz 3.2.2 (Zeilen- und Spaltenentwicklung) folgt, daß p( A) durch q{ A) 
teilbar ist. D. h. es gibt ein Polynom to'(A), so daß 

pW = m 'Wq( A) ■ (6.7) 

Weiterhin gibt es eine n x n-Matrix M aus teilerfremden Polynomen über A, so daß gilt: 

adj (C) = Mq(X) . (6.8) 


Nach Satz 3.6.3 gilt: 


Cadj(G) = E nP ( X ) . 


(6.9) 
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Mit (6.7) folgt aus (6.9): 

C adj (C) = E n m'(X)q(X) . (6.10) 

Mit (6.8) folgt aus (6.9): 

C adj (C) = CMq(X) . (6.11) 

Aus (6.11) und (6.10) folgt: 

CM = E n m'(X) . 

Benutzt man die Definition von C, erhält man 

{A — \E n )M = E n m'(X) . 

Setzt man nun in dieser Gleichung A für A ein, ergibt sich 

m'(A) = 0„ . 

Nach Satz 6.2.2 ist m'(X) also ein Vielfaches des Minimalpolynoms m(A). 

Angenommen es gibt ein Polynom rri" (X) mit 

m"(A) = 0„ , 


dessen Grad kleiner ist als der Grad von m'( A). Da der Grad des charakteristischen 
Polynoms immer n ist, muß dann der Grad von q{ A) in (6.7) und somit auch in (6.8) 
entsprechend größer sein, im Widerspruch dazu, daß q{ A) der ggT ist. Also ist m'( A) das 
Minimalpolynom. 

• Sei nun m{ A) das Minimalpolynom. Dann ist zu zeigen, daß q{ A) der ggT der Unterde¬ 
terminanten ist. 

Nach 6.2.3 gibt es ein Polynom q'( A), so daß 

pW = q'( A)m(A) . (6.12) 

Benutzt man für das Minimalpolynom die Koeffizientendarstellung, erhält man mit ge¬ 
eigneten Koeffizienten bp. 

-E n m{ A) 

= m(A) — E n m( A) 

= b m (A m - X m E n ) + bm— i(A m— 1 - X m ~ 1 E n ) + • • • + b 1 (A - XE n ) . 

Also ist m(A) durch (A — XE n ) teilbar und es gibt eine Matrix N aus Polynomen über A, 
so daß gilt: 

mWE n = (A- XE n )N . (6.13) 

Mutipliziert man beide Seiten mit q'{ A), erhält man 

pWE n = q'W(A- XE n )N . 

Subtrahiert man nun auf beiden Seiten 

pW E n 

nach = 3 -6-3 C a dj (C) 

(A - AU n )adj (C) , 

erhält man 

0„,n = (A- XE n ) ( g\X)N - adj (CQ) 

(* 1 ) (* 2 ) 

In dieser Gleichung ist Term (*1) für ein beliebig gewähltes A ungleich der Nullmatix'. 
Also muß Term (*2) gleich der Nullmatrix sein, so daß gilt: 

_ q'WN = adj (C) 

Abgesehen von einigen Sonderfällen, deren Existenz den Beweis jedoch nicht beeinträchtigt 
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Also ist q'( A) Teiler der Elemente von adj (C). 

Angenommen es gibt ein Polynom q"( A), dessen Grad größer ist als der Grad von q'( A) 
und das ebenfalls Teiler der Elemente von adj ( C ) ist. Da der Grad von p{ A) immer n ist, 
muß dann der Grad von m(A) in (6.12) kleiner sein, im Widerspruch zu der Voraussetzung, 
daß ro(A) das Minimalpolynom ist. 


□ 


Berechnet man in (6.13) auf beiden Seiten die Determinante, erhält man 

m n (X) = p(X) det(N) . 


(6.14) 


Aus (6.6) und (6.14) ergibt sich: 


Folgerung 6.2.5 Es ist X ; genau dann Nullstelle von m(X), wenn es auch Nullstelle von p(X) 
ist. 


Anders ausgedrückt: m(A) und p{ A) besitzen die gleichen Nullstellen mit evtl, verschiedenen 
Vielfachheiten. Das führt zu einer weiteren Schlußfolgerung: 


Folgerung 6.2.6 Besitzt eine n x n-Matrix n paarweise verschiedene Eigenwerte, so stimmen 
ihr Minimalpolynom und ihr charakteristisches Polynom überein. 


Falls die Eigenwerte nicht paarweise verschieden sind, können Minimalpolynom und charakte¬ 
ristisches Polynom also verschieden sein, was eine Einschränkung für die Methode von Krylov 
(siehe Unterkapitel 6.3) bedeutet, wenn man sie zur Berechnung der Koeffizienten des charakte¬ 
ristischen Polynoms verwendet. Wann die beiden Polynome verschieden sind, zeigt der folgende 
Satz: 


Satz 6.2.7 Das Minimalpolynom ro(A) einer Matrix A stimmt genau dann mit dem charakte¬ 
ristischen Polynom p(X) der Matrix überein, wenn die Dimension jedes Eigenraumes 1 beträgt?. 


Beweis Aus 6.2.4 folgt, daß ?n(A) und p{ A) genau dann übereinstimmen, wenn der ggT der 
Determinanten aller (n —1) x (n— 1)-Untermatrizen der charakteristischen Matrix von A gleich 
1 ist. 

Betrachtet man die beiden Polynome in ihrer Linearfaktorendarstellung, muß der genannte ggT, 
falls er ungleich 1 ist, mit einem Linearfaktor von p{ A) übereinstimmen. Für die entsprechende 
Nullstelle von p{ A) verschwinden auch alle (n —1) x (n— 1)-Untercleterminanten. Es gibt also für 
diese Nullstelle keine n — 1 linear unabhängigen Spaltenvektoren der charakteristischen Matrix. 
Der Rangabfall der Nullstelle ist also größer als 1 und es gibt mehr als einen linear unabhängigen 
Eigenvektor zu diesem Eigenwert. □ 


Aus 6.2.6 und 6.2.7 erhält man: 


Folgerung 6.2.8 Falls die Eigenwerte nicht paarweise verschieden sind und das Minimalpo¬ 
lynom mit dem charakteristischen Polynom übereinstimmt, zerfällt es im Körper der reellen 
Zahlen nicht in Linearfaktoren. 


Wie bereits mehrfach erwähnt, erfolgt nun die Anwendung der Ergebnisse dieses Unterkapitels 
auf die Methode von Krylov. 

®Es ist zu beachten, daß diese Aussage nicht dazu äquivalent ist, daß die direkte Summe der Eigenräume den 
gesamten Vektorraum ergibt. 
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6.3 Die Methode von Krylov 


In diesem Unterkapitel wird die Methode von Krylov zur Bestimmung der Koeffizienten des 
Minimalpolynoms einer Matrix beschrieben (siehe z. B. [Zur64] ab S. 171 oder [Hou64] ab S. 
149; Originalveröffentlichung [Kry31] ). Wie in Unterkapitel 6.2 beschrieben wird, ist das Mi¬ 
nimalpolynom unter bestimmten Bedingungen mit dem charakteristischen Polynom identisch. 
Da sich unter den Koeffizienten des charakteristischen Polynoms auch die Determinante der 
zugrunde liegenden Matrix befindet (vgl. 2.4.4), ist es möglich, Krylovs Methode zur Determi¬ 
nantenberechnung zu verwenden, was im Algorithmus von Pan ausgenutzt wird. 

Sei A die n x n-Matrix, deren Minimalpolynom zu berechnen ist. Sei Zq ein geeigneter Vektor 
der Länge n. Wie zq beschaffen ist, wird noch behandelt. Sei * £ IN gegeben. Die Vektoren 


erhält man durch 


Die Vektoren 


Zl, Z{ 

z l := 

22 := 

Zi := 

z 0 , Zi 


Az o 

Az\ A Zq 
Azi -1 = A’z 0 . 


(6.15) 


werden als iterierte Vektoren bezeichnet. Betrachtet man die iterierten Vektoren als Spalten¬ 
vektoren einer Matrix, erhält man eine sogenannte Krylov- Matrix: 


K(A, Zq, i) := [z 0 ,Z 1 ,Z2,...,Z i - 1 \ . 


Zwischen den iterierten Vektoren besteht eine lineare Abhängigkeit besonderer Form, die von 
Krylov [Kry31] für das hier zu beschreibende Verfahren entdeckt wurde. 

Das Minimalpolynom von A wird mit m{X) bezeichnet. Es gilt also 

m{A) = 0 n ,„ . (6.16) 


Das Polynom habe den Grad j. Seien cq, ... Cj _i die Koeffizienten des Polynoms. Definiert man 


co 

Cl 


Cj — i 


dann ergibt sich 


< > .1' • C, ;.l' 1 • . 

m(A) = 

.. + c\A + coE n = 

0 n,n 

0 n,n 


1 

+ 

.. + c\A + cqE u = 

-A 3 


CqEuZq + CiAzq + . 

■ ■ + Cj-iA 3 1 zq = 

~A 3 Zq 



K(A,z 0 ,j)c = 

— A 3 Zq 

(6.17) 


Gleichung (6.17) kann man als lineares Gleichungssystem in Matrizenschreibweise betrachten. 
Multipliziert man die rechte Seite dieser Gleichung aus, erhält man einen Vektor der Länge n. 
Nach 2.3.6 ist das entsprechende Gleichungssystem genau dann lösbar, wenn 


rg (K(A,z 0 ,j) =rg ([K(A,z 0 ,j), A 3 z 0 ]) • 

Wir suchen eine eindeutige Lösung des Gleichungssystems und erhalten diese durch Verwen¬ 
dung von 2.3.7, wonach der bis hierhin nicht näher beschriebene Vektor zq so gewählt werden 
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muß, daß die Spaltenvektoren von K(A, zo,j) linear unabhängig und die Spaltenvektoren von 
[K(A,zo,j), A^zo] linear abhängig sind. 

An dieser Stelle wird deutlich, daß m(A) das Polynom mit dem kleinsten Grad sein muß, das 
(6.16) erfüllt, damit (6.17) eine eindeutige Lösung besitzt. Falls ein Polynom mi(A) existiert, 
daß (6.16) erfüllt und dessen Grad kleiner ist als der Grad von m(A), dann ist die lineare 
Abhängigkeit unabhängig von der Wahl von Zq bereits für weniger als j iterierte Vektoren 
gegeben. 

Da nach (6.17) die ersten j + 1 iterierten Vektoren linear abhängig sind, bleibt zu zeigen, daß 
die ersten j dieser Vektoren linear unabhängig sind. Dazu betrachten wir das s € IN mit der 
Eigenschaft, daß s paarweise verschiedene Eigenvektoren von A immer linear unabhängig und 
s + 1 von ihnen immer linear abhängig sind. Aus den Grundlagen über Eigenvektoren und 
lineare Unabhängigkeit geht hervor, daß ein solches s gibt. 


Seien somit 


xi, x s 


linear unabhängige Eigenvektoren von A. Sei der iterierte Vektor zo darstellbar als Linearkom¬ 
bination einer maximalen Anzahl (also s) von Eigenvektoren von A. Demnach gilt für geeignete 


di , ..., d s , 


ungleich Null 9 : 


z 0 = d\X\ + ■ ■ ■ + d s Xß . 


Eine lineare Abhängigkeit zwischen den ersten j iterierten Vektoren hat die Form 


(6.18) 


h(z 0 ) eo^o + ei^i + • • • + e j-i z j-i — 0 n , (6.19) 

wobei nicht alle e,; gleich Null sind. Mit Hilfe der Gleichungen (6.15) und (6.18) in Verbindung 
mit den Eigenwertgleichungen 10 

Axi A \Xi 


erhält man: 


Zo = 

d\Xi + • • • + d s x s 

* eo 

Zi = 

\\d\Xi + • • • + A s d s x s 

* e\ 

Z2 = 

X^d\X\ H-+ X^d s x s 

* ^2 

■3 -1 = 

X{~ 1 dixi +•••+ Xi~ 1 d s x s 

* 1 


Diese Gleichungen für die Zi werden mit den am rechten Rand angegebenen Werten (vgl. (6.19)) 
multipliziert und anschließend addiert. Definiert man 

g( A) := eo + eiA + • • • + ej- iA J 1 , 
so lautet das Ergebnis in Verbindung mit (6.19) : 

h(z 0 ) = g(\i)dixi H-1- g(X s )d s x s = 0„ . 


Da die xk nach Voraussetzung linear unabhängig sind, muß also gelten 


VI < k < s : g{Xk)dk = 0 . 


Da wiederum nach Voraussetzung Zq eine Linearkombination aller s linear unabhängigen Ei¬ 
genvektoren Xi (s. o.) ist, folgt 

VI < * < s : g(Xi) = 0 . (6.20) 

Da die Dimension jedes Eigenraumes mindestens 1 beträgt, folgt mit Hilfe von 6.2.5, daß die 
maximale Anzahl linear unabhängiger Eigenvektoren s mindestens so groß ist wie der Grad des 
Minimalpolynoms j. 

9 Eine ausführliche Diskussion der Eigenschaften der iterierten Vektoren, insbesondere ihrer Beziehung zu den 
Eigenvektoren, befindet sich in [Bod59] (Teil 2, Kapitel 2). 

10 vgl. Gleichung (2.9) 
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Da g{ A) als Polynom vom Grad j — 1 nur maximal j — 1 Nullstellen besitzen kann, folgt aus 

( 6 . 20 ) 

eo = e± = ■ ■ ■ = ej-i = 0 , 

Daraus wiederum folgt mit (6.19), daß die iterierten Vektoren linear unabhängig sind. 

Der bis hierhin geführte Beweis der linearen Unabhängigkeit iterierter Vektoren verwendet die 
maximale Anzahl s linear unabhängiger Eigenvektoren. Betrachten wir deshalb diesen Wert s 
genauer. Es gibt zwei Fälle: 


• Minimalpolynom und charakteristisches Polynom sind identisch. Satz 6.2.7 führt zu zwei 
Unt erfüllen: 

— Die Eigenwerte sind paarweise verschieden. In diesem Fall ist s gleich dem Grad n 
des charakteristischen Polynoms und somit gleich j. 

— Die Eigenwerte sind nicht paarweise verschieden. Nach 6.2.7 ist s gleich der Anzahl 
verschiedener Eigenwerte und damit in(Q kleiner als n und mindestens 1. In diesem 
Fall läßt sich die lineare Unabhängigkeit nur für weniger als j iterierte Vektoren 
beweisen und die Methode von Krylov ist zur Bestimmung der Koeffizienten des 
Minimalpolynoms nicht anwendbar. 

• Minimalpolynom und charakteristisches Polynom sind nicht identisch. Es gibt wiederum 
zwei Unterfälle: 

— Die direkte Summe der Eigenräume ergibt den gesamten Vektorraum. In diesem Fall 
ist s = n > j. 

— Die direkte Summe der Eigenräume ergibt nicht den gesamten Vektorraum. In diesem 
Fall ist s > j. 


Wählt man also zq als Linearkombination einer maximalen Anzahl linear unabhängiger Ei¬ 
genvektoren, so sind die ersten j iterierten Vektoren linear unabhängig, es sei denn, Minimal¬ 
polynom und charakteristisches Polynom sind identisch und die Eigenwerte nicht paarweise 
verschieden. 

Das nun noch verbliebene Problem ist die Wahl von Zq für eine gegebene Matrix A, da im 
Normalfall die Eigenvektoren nicht bekannt sind. Diese Schwierigkeit kann dadurch überwun¬ 
den werden, daß man die Methode von Krylov mit verschiedenen Vektoren zq auf die Matrix 
A anwendet und dabei die Vektoren Zq so auswählt, daß mindestens einer unter ihnen eine 
Linearkombination aller Eigenvektoren x\ bis x s ist. 

Wählt man eine Basis des zugrunde liegenden Vektorraumes, bestehend aus n Vektoren, sowie 
einen weiteren Vektor so aus, daß je n dieser n + 1 Vektoren linear unabhängig sind und 
der n + 1-te jeweils eine Linearkombination aller n anderen ist, so besitzt mindestens einer 
dieser Vektoren die geforderte Eigenschaft. Dies erkennt man durch folgende Überlegung: Stellt 
man die n Vektoren als Linearkombinationen der Eigenvektoren dar, so wird jeder Eigenvektor 
mindestens einmal benötigt. Da der n + 1-te Vektor eine Linearkombination der anderen n ist, 
ist er also auch eine Linearkombination aller beteiligen Eigenvektoren. Ein Beispiel für n + 1 
Vektoren, die offensichtlich diese Eigenschaft besitzen, sind die Vektoren der kanonische Basis 
und deren Summe: 


' 1 ' 


' 0 ' 


' 0 ' 


' 1 ' 

0 


1 


0 


1 

0 


0 




1 





■ o 



o 


o 


1 


1 


Uns interessiert die Berechnung der Determinante mit Hilfe der Methode von Krylov. Zusam¬ 
mengefaßt sieht das Vorgehen dazu folgendermaßen aus: 

• Zunächst werden auf die soeben beschriebene Weise n + 1 für den iterierten Vektor zq 
bestimmt. In der praktischen Anwendung beschränkt man sich in der Regel auf einen 
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Vektor, da die Anzahl der Fälle, in denen dieser Vektor nicht ausreicht, so gering ist, daß 
diese Fälle vernachlässigt werden können. 

Die folgenden Schritte werden mit jedem Vektor Zq parallel durchgeführt. 

Falls mehrere der parallelen Zweige ein Ergebnis liefern, müssen diese Ergebisse gleich 
sein. Falls sie nicht gleich sind, wurde die Rechnung nicht korrekt durchgeführt. 

Falls keiner der Zweige ein Ergebnis liefert, sind entweder die Eigenwerte der zugrunde 
liegenden Matrix nicht paarweise verschieden, oder die Matrix ist nicht invertierbar. Diese 
beiden Unterfälle können mit dem hier dargestellten Algorithmus nicht unterschieden 
werden. 

• Es werden die iterierten Vektoren von z± bis z n berechnet. 

• Das Gleichungssystem (6.17) wird dadurch gelöst, daß die aus den iterierten Vektoren 
bestehende Krylov-Matrix inveritert wird. Ist die Krylov-Matrix nicht invertierbar, so ist 
der Berechnungsversuch aus den bereits beschriebenen Gründen ein Fehlschlag und wird 
abgebrochen. 

• Die Koeffizienten des charakteristischen Polynoms, und somit auch die Determinante, 
werden dadurch berechnet, daß die Inverse der Krylov-Matrix mit dem iterierten Vektor 
z n multipliziert wird (vgl. (6.17)). 

6.4 Vektor- und Matrixnormen 

Die Darstellungen der Wahl einer Näherungsinversen in Unterkapitel 6.5 und der iterativen 
Matrizeninvertierung in Unterkapitel 6.6 benutzen Normen von Matrizen. Deshalb werden im 
vorliegenden Unterkapitel die Normen eingeführt, die dort zur Beschreibung erforderlich sind. 
Literatur dazu ist z. B. [GvL83] ab S. 12 oder [IK73] ab S. 3. 

Umgangssprachlich formuliert, stellt der Begriff der Norm eine Verallgemeinerung des Begriffs 
der Länge dar. Um zu Matrixnormen zu gelangen, klären wir zunächst, was eine Vektornorm 
ist: 

Definition 6.4.1 Eine Funktion 

/ :Q n -Q , 

die die Bedingungen 

1. \/x GQ : f(x) > 0, /( x) = 0 <G> x = 0„ 

2. Mx, y GQ : f(x + y) < f{x) + f(y) 

3. Va gQ,:e gQ” : f(ax) = \a\f(x) 

erfüllt, heißt Norm über Q". 


Definition 6.4.2 Sei 

fest gewählt und 


P G IN 

igQ" 


beliebig. 

INI P :=(k 1 | P +---+l*n| p ) 1/p 

Die so definierte Funktion heißt p-Norm . 


I \x\\oo := max \xi\ 

1 <i<n 

Diese Funktion wird mit oo -Norm bezeichnet. 

Die p-Normen sowie die oo-Norm werden als Höldernormen bezeichnet. 
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Mit der vorangegangenen Definition werden zwar einige Begriffe angegeben, es ist jedoch nicht 
selbstverständlich, daß es sich bei den Funktionen auch wirklich um Normen handelt: 

Satz 6.4.3 Die in 6.fi2 definierten Funktionen sind Normen über<Q n . 

Beweis Die Funktionen erfüllen die Bedingungen aus 6.4.1. 

Der Beweis dieser Behauptung ist für die 1-Norm, 2-Norm und oo-Norm in [IK73] ab S. 4 und 
für die anderen Normen in [Ach67] S. 4-7 angegeben. □ 


Den Begriff der Norm kann man auch auf Matrizen ausdehnen. Für uns genügt die Betrachtung 
quadratischer Matrizen. 

Definition 6.4.4 Eine Funktion 

/ :Q” 2 -><Q , 

die die Bedingungen 


VAeCP 

/(A) > 0, /(A) = 0 <-> A = 0„ 

VA,B eGT 2 

f(A + B) < f(A) + f(B) 

Vce<Q,Ae<Q n2 

/(cA) = |c|/(A) 

VA,B eCp 2 

f{AB) < f(A ) * f(B) 


erfüllt, heißt Matrixnorm überQ" 


Die vierte der obigen Bedingungen wird in der Literatur nicht immer für Matrixnormen ge¬ 
fordert. In solchen Fällen wird unterschieden zwischen Matrixnormen, die diese Bedingungen 
erfüllen, und solchen, die diese Bedingung nicht erfüllen (vgl. [IK73] S. 8 und [GvL83] S. 14). 
Für uns sind diese Unterschiede nicht von Bedeutung. 

Die von uns benutzten Matrixnormen sind folgendermaßen definiert: 


Definition 6.4.5 Sei 

Sei 


AgQ ” 2 


xgQ" 


Es gelte 

INI = i 

für eine fest gewählte Vektornorm. Die Funktion 

\\A\\:=\\Ax\\ 

heißt dann durch die Vektornorm induzierte Matrixnorm . 


Sie ist in der Literatur auch noch unter den Namen natürliche Norm und Operatornorm bekannt 
und wird häufig noch anders definiert (vgl. [IK73] S. 8). Das hat jedoch für unsere Anwendungen 
keine Bedeutung. 


Satz 6.4.6 Die in 6.^.5 definierte Funktion ist eine Matrixnorm. 


Beweis Die Funktion erfüllt die Bedingungen in 6.4.4 ([IK73] ab S. 8 ). 


□ 
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Es folgen Beispiele für induzierte Matrixnormen, die im weiteren Text benutzt werden. Dazu 
benötigen wir vorher noch einen weiteren Begriff: 

Seien Ai, ..., X n die Eigenwerte von A. Dann wird der Spektralradius p(Ä) definiert als 


p(A) := max{|Ai|, ..., |A„|} . 


Durch Indizes wird jeweils kenntlich gemacht, durch welche Vektornorm die jeweilige Ma¬ 
trixnorm induziert wird 11 . 


n 


Plll 

= max V \a k ,j\ 

(6.21) 


1 fc= 1 


PII2 

= \Jp(A*A) 

(6.22) 

Plloc 

= max V \ a i,k\ 

(6.23) 


1 k=1 

(6.24) 


Die Beweise der Gleichungen (6.21), (6.22) und (6.23) sind in [IK73] ab S. 9 zu finden. 
Falls es nicht im Einzelfall anders festgelegt ist, gilt im weiteren Text || || = || 1 12 - 


6.5 Wahl einer Näherungsinversen 


In dem in Kapitel 6 vorzustellenden Algorithmus wird die Krylov-Matrix dadurch invertiert, daß 
eine Näherungsinverse berechnet und diese dann iterativ verbessert wird. In diesem Unterkapitel 
wird die Wahl der Näherungsinversen beschrieben. Literatur dazu sind [PR85a] und [PR85b], 

Für die weiteren Betrachtungen benötigen wir: 


t 

1 

(6.25) 

P T ^l|i 

B 

:= t,A T 

(6.26) 

R(B) 

E n — BA 

(6.27) 


Im folgenden wird in mehreren Schritten eine Ungleichung für ||Ä(ß)|| bewiesen, aus der folgt, 
daß das in Unterkapitel 6.6 beschriebene Verfahren effizient auf B angewendet werden kann, 
um eine Inverse von A mit zufriedenstellender Näherung zu erhalten. 

Definition 6.5.1 Gilt für eine Matrix A 


A = A t 


dann wird sie als symmetrisch bezeichnet. 


Da die beiden folgenden Lemmata aus den Grundlagen über Normen stammen, werden die 
Beweise auf einen Literaturverweis beschränkt. Sie sind in [Atk78] ab S. 416 zu finden. 


Lemma 6.5.2 Für jede symmetrische Matrix A gilt: 

Pl| 2 = p(A) 


11 Bei der Vielzahl der in diesem Unterkapitel auftauchenden Normen, sollte man nicht vergessen, daß \x\ für 
einen Skalar x einfach nur den Absolutwert bezeichnet. 
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Lemma 6.5.3 

P t A|| 2 = p(A T Ä) = PH 2 < p T A||i < max^ | a itj | max^ \a i:j \ < npP|| 

i 3 

3 * 

Lemma 6.5.4 Sei X ein Eigenwert, der invertierbaren n x n-Matrix A. Dann ist 1/A ein Ei¬ 
genwert von A~ x . 

Beweis Da A invertierbar ist, ist A yf 0. Sei v ein Eigenvektor zu A. Dann gilt v yf 0„, sowie 

Av ^ 0 n 
Av = Xv . 

Damit ergibt sich: 

A~ l {Av) = v = (l/A)Ar; = (1/A )Av , 

woraus die Behauptung folgt. □ 

Lemma 6.5.5 Sei A invertierbar. Sei X ein Eigenwert von A T A. Dann gilt: 

P^p<A<P|| 2 . (6.28) 

Beweis Die rechte Ungleichung von (6.28) folgt aus 6.5.3. 

Die linke Ungleichung von (6.28) folgt aus 6.5.4 in Verbindung mit 6.5.3. □ 


Satz 6.5.6 Seien t, B und R(B) entsprechend der Gleichungen (6.26), (6.25) und (6.27) de¬ 
finiert. Sei fi ein Eigenwert, von R(B). Dann gilt 

° - ^ 1 ~ P^lliPPI 2 ' 


Beweis Sei v Eigenvektor von fi (d. h. v ist nicht der Nullvektor). Dann gilt: 

R(B)v = fiv . 

Mit Hilfe von (6.27) und (6.26) erhält man: 

( E n — tA T Ä)v = v — tA T Av = fiv . 


Daraus folgt 


A T Av = Xv, X = 


l- p 


Also ist A ein Eigenwert von A T A und mit 6.5.5 folgt 


1 


1 — fi 

< X= -- < 


P- 1 !! 2 - 

i - tp || 2 < fi < i - 


t 


P _1 II 2 

Mit Hilfe von Lemma 6.5.3 und (6.25) ergibt sich die Behauptung. 


□ 


Da die Matrix 

R(B) =E n - t.A T A 

symmetrisch ist, folgt aus 6.5.2 und 6.5.6 eine Ungleichung, die es erlaubt, die in (6.26) definierte 
Matrix B für unsere Zwecke zu verwenden: 

Folgerung 6.5.7 


I|Ä(B)II<1 


1 

pppppF 


Die Benutzung dieser Folgerung wird in Unterkapitel 6.6 beschrieben. 



98 


6.6 Iterative Matrizeninvertierung 


6.6 Iterative Matrizeninvertierung 


In diesem Unterkapitel wird beschrieben, wie man eine gegebene Näherungsinverse B einer 
invertierbaren Matrix A iterativ schrittweise verbessern kann. Diese Methode ist in der Literatur 
als Newton-Verfahren bekannt und wird in [PR85a] und [PR85b] sowie in [Hou64] ab S. 64 
behandelt. 

Um zu einem Iterationsverfahren zu gelangen, nehmen wir einige Umformungen an einer Glei¬ 
chung vor, in der das mit (6.27) R{B ) vorkommt: 



R{B) = 

o„,, 


R(B) + E n = 

E n 


(R(B) + E n )B = 

B 


(2 E n - BA)B = 

B 


Man definiert mit Hilfe der letzten dieser Gleichungen die Iteration 

Bo := B 

Bi := (2 E n — Bi-\Ä)Bi-i . (6.29) 

Betrachtet man nun (6.27) für Bi statt B , bekommt man eine Aussage über die Stärke der 
Konvergenz der Iteration: 

R(Bi) = E n — BiA 

— E n — (2 E n — Bi-iA)Bi_iA 
= E n — 2 Bi_iA + {Bi_\A ) 2 
= (R(B t -1)) 2 

Daraus folgt, daß für jede Matrixnorm gilt: 

mBi)\\ = ii(ä(b < -i)) 2 ii . 


Unter der Voraussetzung 

||R(R)||<1 (6.30) 

konvergiert ||I?(ßj)|| also quadratisch gegen Null und die Bi entsprechend gegen A~ x . 

Um das Iterationsverfahren einsetzen zu können, müssen wir noch feststellen, wieviele Itera¬ 
tionen erforderlich sind, um eine bestimmte Genauigkeit zu erreichen. Dazu definieren wir als 
Abkürzung 

</:=||Ä(B)||, q% := ||J?(ßj)||, q 0 := q . 

Damit das Verfahren überhaupt in praktisch nutzbarer Weise konvergiert, darf q nicht beliebig 
nahe bei 1 liegen. Sei c £ IN gegeben. Dann nehmen wir an, daß für q gilt: 


9 = l-i • 


(6.31) 


Da das Verfahren quadratisch konvergiert, gilt für k £ INq: 

nk 

qk = q ■ 


Mit (6.31) erhalten wir: 


Qk = ( 1 - 


q k < d £ IN 
d 


Für unsere Anwendung sei 
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ausreichend. Mit 


k := elog(n), e GQ> 0 


erhalten wir: 



Da uns die Anzahl der Iterationen interessiert, lösen wir diese Gleichung nach e auf und nehmen 
dazu n —» oo an: 


=7 

=k 



1 

d 

1 

d 

1 

d 


ln(d) 


ln(ln(d)) 

ln(n) 


+ c 


C 


e 


Wir können also für wachsende n annehmen, daß gilt 


c « e . 

Um die — bei gegebenem n — von e bestimmte Anzahl der Iterationen zu erhalten, müssen wir 
c näher bestimmen. Vergleichen wir dazu (6.31) mit der Aussage von 6.5.7. Aus Grundlagen 
über Normen (z. B. [IK73] ab S. 12) erhalten wir für eine beliebige Matrix W: 


||W|| 2 < . 


Wir können also die Berechnung von c auf die Bestimmung der 1-Norm, also der maxima¬ 
len Betragsspaltensumme, einer Matrix zurückführen und erkennen, daß c von der Größe der 
Matrizenelemente abhängt. 

Somit erkennen wir eine weitere Einschränkung für die Anwendbarkeit des Algorithmus. Die 
Matrix muß die Bedingung 

||A T A|| 1 ||A- 1 || 2 <n c (6.32) 

für ein c € IN erfüllen. Die Wahl von c hängt davon ab, auf welche Matrizen man das Verfahren 
anwendet. Um P-Alg. mit den anderen Algorithmen vergleichen zu können, nehmen wir im 
weiteren Verlauf des Textes c = 1 an. 


6.7 Determinatenber. mit Hilfe der Methoden von Krylov 
und Newton 


In diesem Unterkapitel werden die in den vorangegangenen Abschnitten dargestellten Methoden 
zu einem Algorithmus zur Determinantenberechnung zusammengefaßt, auf den mit P-Alg. Be¬ 
zug genommen wird 12 . Weiterhin wird die Anzahl der Schritte und der Prozessoren analysiert. 

Im folgenden ist mit n x jeweils \n x ~\ gemeint. 

Im folgenden wird mit Hinweis auf die Bemerkungen auf S. 15 für die Multplikation zweier 
n x n -Matrizen ein Aufwand von 

7s([~log( n )l + 1 ) 

Schritten und 

7 pn 2+1 

Prozessoren in Rechnung gestellt. 

12 vgl. Unterkapitel 1.3 



100 6.7 Determinatenber. mit Hilfe der Methoden von Krylov und Newton 

Es sei die Determinante der nxn-Matrix A zu berechnen. Zuerst wird die Krylov-Matrix entspre¬ 
chend der Darstellung in Abschnitt 6.3 berechnet. Es ist üblich, für den dort erwähnten Vektor 
2 zur Berechnung der iterierten Vektoren den Einheitsvektor zu verwenden, dessen sämtliche 
Elemente gleich 1 sind. Aufgrund der aus theoretischer Sicht ohnehin bereits eingeschränkten 
Verwendbarkeit der Methode von Krylov für unsere Zwecke, bedeutet die Beschränkung auf 
diesen Vektor nur eine unbedeutende Verschlechterung des Algorithmus. 

Zuerst sind die iterierten Vektoren anhand des Vektors z und der Matrix A zu berechnen. Dies 
geschieht anhand der nachstehenden Gleichungen ([Pan85], [BM75] S. 128, [Kel82]). Auf den 
rechten Seiten werden nur Ergebnisse vorangegangener Gleichungen oder z bzw. A verwendet. 
Auf den linken Seiten stehen neu berechnete Ergebnisse. Die Terme auf den rechten Seiten 
beschreiben Matrizenmultiplikationen und die linken Seiten deren Ergebnisse. 

[A 3 u, A 2 v] = A 2 [Ai>, v] 

[A 7 v, A e v, A 5 u, A A v] = A 4 [A 3 u, A 2 u, Av, v] 


[A 2 * 2 \, ..., A 2 \} = A 2h [A 2h ~ 1 v, 

Um die jeweils nächste Gleichung mit Hilfe der schon bekannten Ergebnisse aufzustellen, sind 
zwei Matrizenmultiplikationen erforderlich. Mit der ersten wird die nächste benötigte Potenz 
von A berechnet. Mit der zweiten wird der jeweilige Term der rechten Seite der Gleichung 
ausgewertet. Die n gesuchten iterierten Vektoren können auf diese Weise in 

7s([log(n)l + 1) |dog(n)] 

Schritten von 

7pn 2+7 

Prozessoren berechnet werden. 

Anschließend ist für die aus iterierten Vektoren bestehende Krylov-Matrix eine Näherungs¬ 
inverse entsprechend der Ausführungen in Unterkapitel 6.5 zu berechnen. Dazu werden die 
Gleichungen (6.26) und (6.25) verwendet. Betrachtet man diese Gleichungen, erkennt man, daß 
zur Berechnung der dortigen Matrix B aus der Matrix A eine Matrizenmultiplikation, eine 
Berechnung der 1-Norm einer Matrix, eine Division durch einen Skalar sowie eine Matrix- 
Skalar-Multiplikation erforderlich ist. An dieser Stelle wird deutlich, daß der Algorithmus nicht 
ohne Divisionen auskommt. 

Um die 1-Norm zu erhalten, sind n Summen von je n-Matrizenelementen zu berechnen und 
miteinander zu vergleichen. Dies kann mit Hilfe der Binärbaummethode nach Satz 1.5.1 in 

2 (log(n)] 

Schritten von 

„ n I 

U LJ 

Prozessoren durchgeführt werden. 

Insgesamt kann die Berechnung der Näherungsinversen also in 

75(flog(n)l + 1) + 2 riog(n)] + 2 


Schritten von 

Prozessoren geleistet werden. 


7 pn 


2+7 


Nachdem sie zur Verfügung steht, kann sie mit Hilfe des in Unterkapitel 6.6 beschriebenen 
Verfahrens verbessert werden. 


Ein Iterationsschritt mit Hilfe von Gleichung (6.29) erfordert zwei Multiplikationen und eine 
Acldtition von Matrizen. Setzt man für die Anzahl der durchzuführenden Iterationen zunächst 
die Unbestimmte I ein, kann das Iterationsverfahren in 


I * 27 S (|"log(n)"| + 1) + 1 
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Schritten von 

7 pn 2+1 

Prozessoren auf die Näherungsinverse angewendet werden um diese bis auf eine ausreichende 
Genauigkeit an die gesuchte Inverse anzunähern. 

Schließlich ist noch eine Matrix-Vektor-Multiplikation durchzuführen, um die Methode von 
Krylov zur Berechnung der Koeffizienten des charakteristischen Polynoms zu vollenden. Be¬ 
trachtet man den Vektor wiederum als Matrix, kann dies in 


7s(riog(n)] +1) 

Schritten von 

7 pn 2+1 

Prozessoren erledigt werden. Nach 2.4.4 hat man mit den Koeffizienten auch die Determinante 
berechnet. 


Hier wird eine Einschränkung für den Algorithmus deutlich. Da ein Näherungs verfahren ver¬ 
wendet wird, ist es nicht möglich, die Determinante für Matrizen mit Elementen aus(Q genau zu 
berechnen. Diese müssen deshalb aus 7L stammen, denn in diesem Fall sind die Koeffizienten 
des charakteristischen Polynoms ebenfalls ganzzahlig und die Determinante kann bei genügend 
genau durchgeführtem Newton-Verfahren durch Rundung genau ermittelt werden. 

Betrachtet man die Einschränkungen für die Verwendbarkeit der Methode von Krylov (vgl. 
Unterkaptel 6.3) sowie die Bedingung (6.32) auf S. 99, erkennt man, daß insgesamt nicht un¬ 
erhebliche Anforderungen an die Matrix, deren Determianten zu berechnen ist, gestellt werden 
müssen, damit der in diesem Kapitel dargestellte Algorithmus anwendbar ist. 

Als Gesamtaufwand für den Algorithmus erhält man für die Anzahl der Schritte: 

7s(ri°g( n )l + 1) riog(n)] 

+ 7s(riog(n)l + 1) + 2 riog(n)] + 2 
+ I* 27s(riog(n)] + 1) + 1 
+ 7s(r io g(A)l + !) 

= 7 s( riog(n)l 2 + 5 flog(n)] + 1(2 |"log(n)] + 2) + — + 2 
V 7s 

Mit Verweis auf Unterkapitel 6.6 nehmen wir I = log(n) an. Dadurch lautet der Term für die 
Anzahl der Schritte: 

7s f 3 riog(n)l 2 + 7 |4og(n)] + — + 2 
V 7 s 

Vergleicht man die Annahme für I mit den Ausführungen in Unterkapitel 6.6, erkennt man, daß 
dies der beste mit dem Algorithmus zu erreichende Wert ist. Bei schlechteren Randbedingungen 
erhält man für die Schritte einen entsprechend schlechteren Wert. 



Für die Prozessoren ergibt sich: 


7 pn 


2+7 


Da die Matrizenmultiplikation nach [CW90] nur für sehr große n Vorteile bringt, wird 


7p = 7S = 7 = 1 


gesetzt, um eine für die Anwendung des Algorithmus realistische Vergleichsmöglichkeit mit den 
anderen Algorithmen zu bekommen. 

Vergleicht man P-Alg. mit C-Alg., BGH-Alg. und B-Alg., so erkennt man, daß die Anzahl der 
Prozessoren in P-Alg. gleich ist mit der Anzahl der Prozessoren für die Matrizenmultiplikation 
ist und somit um eine Potenz geringer als beim besten der drei anderen Algorithmen. 

Ein gravierender Nachteil von P-Alg. sind die Einschränkungen für die Benutzbarkeit. Die Be¬ 
dingung, daß die Matrizenelemente ganzzahlig sein müssen, läßt sich durch Ausnutzung der 
Eigenschaften einer Determinaten (siehe Definition 2.1.6) ausgleichen. Dazu werden die Matri¬ 
zenelemente durch einen geeigneten Faktor multipliziert, so daß die resultierende Matrix nur 
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ganzzahlige Elemente enthält. Nachdem der Algorithmus auf diese Matrix angewendet worden 
ist, kann man dann aus dem Ergebnis auf die Determinate der ursprünglichen Matrix schließen. 

Durch die in Unterkapitel 6.3 beschriebenen Einschränkungen, kann für P-Alg. nicht garantiert 
werden, daß er für jede invertierbare Matrix eine Determinante ungleich Null liefert. Die Wahr¬ 
scheinlichkeit für einen solchen Fall ist zwar gering, jedoch unterscheidet diese Beschränkung 
P-Alg. von den anderen drei Algorithmen. 

Weiterhin muß man bei P-Alg. natürlich wiederum auf die Existenz von Divisionen und das 
Fehlen von Fallunterscheidungen hinweisen. 



Kapitel 7 


Implementierung 


In diesem Kapitel wird die Implementierung der in den Kapitel 3 bis 6 behandelten Algorithmen 
beschrieben 1 . 


7.1 Erfüllte Anforderungen 


In diesem Unterkapitel werden die wesentlichen Eigenschaften des implementierten Programms 
beschrieben um einen Überblick über dessen Leistungsmerkmale zu geben. 

Die Algorithmen sind in Modula-2 auf einem Rechner mit einem Prozessor implementiert 2 . Als 
Literatur über die Programmiersprache Modula-2 ist z. B. [CLR86] empfehlenswert. 

Alle Algorithmusteile, die parallel ausgeführt werden sollen, werden mit Hilfe von Schleifen 
nacheinander ausgeführt. Mit Hilfe von Zählprozeduren (siehe Modul ‘Pram’) wird während 
der Programmausführung ermittelt, in wieviel Schritten und mit Hilfe von wieviel Prozessoren 
der Algorithmus durch eine PRAM abgearbeitet werden kann. 

Das Programm ermöglicht es, Matrizen anhand von Parametervorgaben zufällig zu erzeugen. 
Die Parameter sind 

• Größe der Matrix, 

• Rang (um auch Matrizen mit der Determinante Null gezielt erzeugen zu können), 

• Wahl einer der Mengen 3 IN, 7L, Q oderQ + 4 für die Matrizenelemente, da Algorithmen 
evtl, nicht auf jede dieser Mengen anwendbar sind, und 

• Vielfachheiten der Eigenwerte (wichtig für den Algorithmus von Pan). 

Für erzeugte Matrizen kann jeder der implementierten Algorithmen aufgerufen werden. Eine 
Matrix wird zusammen mit den durch die verschiedenen Algorithmen berechneten Determi¬ 
nanten und den Meßergebnissen der Zählprozeduren unter einem Namen auf dem Hintergrund¬ 
speicher abgelegt. Diese Verwaltung geschieht automatisch. Dazu muß der Benutzer vor jedem 
neuen Anlegen eines aus den obigen Daten bestehenden Datensatzes einen Namen für diesen 
Datensatz angeben. 

Das Programm ist kommandoorientiert. D. h. nach dem Start wird der Benutzer aufgefordert, 
Befehle einzugeben, die nacheinander ausgeführt werden. 

Die Lesbarkeit des Quelltextes wird durch häufige Kommentare gesteigert. 

1 Der Algorithmus nach dem Entwicklungssatz von Laplace (siehe Unterkapitel 3.3) wird hier nicht 
berücksichtigt. 

2 Megamax Modula-2 auf einem ATARI ST 

3 durch geeignete Parameterwahl mit dem Befehl ‘param’ 

4 alle Elemente ausQ, die größer oder gleich Null sind 
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7.2 Bedienung des Programms 


In diesem Unterkapitel wird die Benutzung des Programms beschrieben. 

Nach dem Programmstart muß zunächst mit Hilfe des Befehls find ein Datensatz festgelegt 
werden, der bearbeitet werden soll. Dies kann ein bereits existierender oder ein neu anzulegender 
sein. 

Bei einem neu angelegten Datensatz müssen danach mit Hilfe des Befehls param die Parameter 
für die zu erzeugende Matrix fest gelegt werden. 

Anschließend kann man mit gen eine neue Matrix erzeugen lassen. Nachdem mit param die 
Parameter festgelegt sind, kann mit mit gen zu jeder Zeit eine neue Matrix generieren lassen, 
wodurch jedoch die vorangegangene Matrix verloren geht. 

Wenn eine Matrix erzeugt worden ist, kann man mit Hilfe der Befehle berk, bgh, csanky und 
pan die entsprechenden Algorithmen auf die generierte Matrix anwenden. 

Mit show kann man sich zu jeder Zeit den aktuellen mit find bestimmten Datensatz auf dem 
Bildschirm anzeigen lassen. Die generierte Matrix wird nur ausgegeben, wenn eine Matrixzeile 
in eine Bildschirmzeile paßt. Größere Matrizen kann man mit mshow trotzdem ausgeben lassen. 

Falls man einen weiteren Datensatz anlegen oder einen bereits vorhandenen wieder bearbeiten 
will, benutzt man erneut den Befehl find. Die Speicherung des alten Datensatzes geschieht 
automatisch. 

Weitere Befehle, die man nach dem Programmstart zu jedem Zeitpunkt angeben kann, sind: 
del, exit, h, help, hilfe, ?, Is und q . Ihre Bedeutung ist in der folgenden Liste aller erlaubten 
Befehle erklärt: 

berk 

Der Algorithmus von Berkowitz aus Kapitel 5 wird auf die Matrix des aktuellen Daten¬ 
satzes angewendet. Die berechnete Determinante sowie die Ergebisse der Zählprozedu¬ 
ren (siehe Modul ‘Pram’) werden im aktuellen Datensatz abgelegt. 

bgh 

Die Wirkung dieses Befehls ist analog zu der des Befehls berk, jedoch bezogen auf den 
Algorithmus von Borodin, von zur Gathen und Hopcroft aus Kapitel 4. 

csanky 

Die Wirkung dieses Befehls ist analog zu der des Befehls berk, jedoch bezogen auf den 
Algorithmus von Csanky aus Unterkapitel 3.8. 

del 

Es wird nach einem Datensatznamen gefragt. Der zugehörige Datensatz wird im Haupt¬ 
speicher und auf dem Hintergrundspeicher gelöscht. 

exit 

Das Programm wird beendet. Der aktuelle mit find festgelegte Datensatz wird automa¬ 
tisch auf dem Hintergrundspeicher abgelegt. 

find 

Es wird nach einem Datensatznamen gefragt. Falls ein Datensatz mit diesem Namen 
bereits im Hauptspeicher abgelegt ist, wird dieser erneut zum aktuellen Datensatz. Falls 
dies nicht der Fall ist und auf dem Hintergrundspeicher ein Datensatz mit diesem Namen 
abgelegt ist, wird dieser in den Hauptspeicher geladen und zum aktuellen Datensatz. 
Falls beide Fälle nicht zutreffen, wird ein neuer Datensatz mit dem angegebenen Namen 
im Hauptspeicher angelegt und als aktueller Datensatz betrachtet. 
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gen 

Entsprechend der mit param festgelegten Parameter wird eine neue Matrix für den 
aktuellen Datensatz generiert. Die dort durch die Befehle berk, bgh, csanky und pan 
abgelegten Daten werden gelöscht. 


h, help, hilfe, ? 

Durch diese Befehle wird eine Kurzbeschreibung aller erlaubten Befehle auf den Bild¬ 
schirm ausgegeben. 


Is 

Auf dem Bildschirm wird eine Liste der Namen der im Hauptspeicher befindlichen 
Datensätze ausgegeben. 

mshow 

Die Matrix des aktuellen Datensatzes wird auf dem Bildschirm ausgegeben. 

pan 

Die Wirkung dieses Befehls ist analog zu der des Befehls berk , jedoch bezogen auf den 
Algorithmus von Pan aus Kapitel 6. 

param 

Es wird nach den Parametern für die mit Hilfe von gen zu generierende Matrix gefragt. 
Alle zuvor im aktuellen Datensatz abgelegten Daten werden gelöscht. 

q 

Die Wirkung dieses Befehls ist mit der des Befehls exit identisch. 

show 

Der aktuelle Datensatz wird auf dem Bildschirm ausgegeben. Die Matrix wird nur 
ausgegeben, falls eine Matrixzeile in eine Bildschirmzeile paßt. Mit dem Befehl mshow 
kann die Matrix dennoch ausgegeben werden. 


7.3 Die Modulstruktur 


In diesem Unterkapitel wird die Struktur des implementierten Programms beschrieben. Da¬ 
zu wird zu jedem Modul dessen Aufgabe und evtl, dessen Beziehung zu anderen Modulen 
angegeben. Alle Beschreibungen von Details der Implementierung, die für die Benutzung des 
Programms und für das Verständnis von dessen Gesamtstruktur unwichtig sind, erfolgen durch 
Kommentare innerhalb des Quelltextes (siehe Anhang). 

Eine Beschreibung des Programmoduls main entspricht einer Erklärung der Benutzung des 
Programms. Diese ist in Unterkapitel 7.2 zu finden. 

Die Beschreibung der Programmodule zum Test einzelner Teile des Gesamtprogramms ist von 
untergeordnetem Interesse und beschränkt sich deshalb auf kurze Bemerkungen über ihren 
Zweck ihm Rahmen der alphabetischen Auflistung (s. u.). 

Die vorrangige Aufmerksamkeit des an der Implementierung der Algorithmen Interessierten 
sollte sich auf die Module Det und Pram sowie auf das Programmodul algtest richten. 

Die genannten vorrangig interessanten Module sind im Anhang A zusammen mit dem Modul 
main gesammelt. Die weniger interessanten Testprogrammoclule sind im Anhang C aufgeführt. 
Alle weiteren Module sind in alphabetischer Reihenfolge in Anhang B zu finden. 
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Zunächst wird anhand eines reduzierten Ebenenstrukturbildes (Erklärung s. u.) ein Überblick 
über die Programmstruktur geben. Anschließend erfolgt eine alphabetische Auflistung der Mo- 
dule und ihrer Erklärungen. 

In das erwähnte Strukturbild sind alle Module nach folgenden Regeln eingetragen: 


• Die Eintragung erfolgt ebenenweise. Die niedrigste Ebene ist im Bild unten zu finden und 
die höchste oben. Jedes Modul gehört genau einer Ebene an. 

• Jedes Modul wird im Rahmen der Maßgaben durch die anderen Regeln in einer möglichst 
niedrigen Ebene eingetragen. 

• Von jedem Modul A aus, das ein Modul B benutzt, z. B. durch Aufruf von Prozeduren 
des Moduls B, wird im Rahmen der Einschränkungen durch andere Regeln ein Pfeil auf 
dieses Modul B gerichtet. 

• Jedes Modul wird so eingetragen, daß kein Pfeil von ihm auf ein Modul auf der gleichen 
oder einer höheren Ebene gerichtet ist. 

• Alle Pfeile von einem Modul aus auf Module, die nicht genau eine Ebene tiefer angeordnet 
sind, werden weggelassen. 


Durch die letzte Regel gewinnt das Strukturbild erheblich an Übersichtlichkeit, ohne wesentli¬ 
chen Informationsgehalt zu verlieren. Aus dem Quelltext jedes Moduls ist zu entnehmen, welche 
Module, außer den im Bild angegebenen, sonst noch benutzt werden. Die aufgeführten Regeln 
liefern das in Abbildung 7.1 angegebene Bild. 



Func 


SysMath Sys 


Abbildung 7.1: reduziertes Ebenenstrukturbild 


Es folgen die Kurzbeschreibungen der einzelnen Module in alphabetischer Reihenfolge. 
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algtest (Programmodul) 

Dieses Modul dient zum Test der Algorithmen zur Determinantenberechnung ohne Be¬ 
hinderung durch Anforderungen irgendwelcher Art, insbesondere ohne Beachtung der 
Parallelisierung und der Maßgabe, Matrizen beliebiger Größe zu verarbeiten. 


Cali (CArdinal List) 

In diesem Modul sind lineare Listen positiver ganzer Zahlen implementiert. Es stützt 
sich auf das Modul ‘List’. 


Data 

Das Modul ‘Data’ dient der Verwaltung der Datensätze bestehend aus Matrizen und ih¬ 
ren Parametern, sowie der berechneten Determinanten und der dabei gezählten Schritte 
und Prozessoren. 

Det 

In diesem Modul sind die Algorithmen zur parallelen Determinantenberechnung imple¬ 
mentiert. 


Frag (array FRAGments) 

Im Modul ‘Frag’ sind Felder beliebiger variabler Länge und beliebigen Inhalts imple¬ 
mentiert. Das Modul ist erforderlich, um Matrizen verarbeiten zu können, deren Größe 
durch den Benutzer erst während der Laufzeit des Programms festgelegt wird. 

Das Modul profitiert von der Verwaltung von Elementen beliebiger Typen durch das 
Modul ‘Type’. 

Func (FUNCtions) 

In diesem Modul sind verschiedene Prozeduren und Funktionen insbesondere für ma¬ 
thematische Zwecke zusammengefaßt. 


Hash 

Durch dieses Modul werden Prozeduren zur Streuspeicherung, auch unter dem Namen 
‘Hashing’ bekannt, zur Verfügung gestellt. Das Modul wird durch den Algorithmus von 
Borodin, von zur Gathen und Hopcroft im Modul ‘Det’ benötigt, um Zwischenergebnisse 
bei der parallelen Berechnung von Termen zu speichern. 

Das Modul ‘Hash’ erlaubt es, beliebige Daten zu speichern. Dabei wird auf das Modul 
‘Type’ zur Verwaltung von Elementen beliebiger Typen zurückgegriffen. 


Inli (INteger List) 

In diesem Modul sind lineare Listen ganzer Zahlen implementiert. Es stützt sich auf 
das Modul ‘List’. 


List 

Das Modul ‘List’ stellt Prozeduren zur Verwaltung von linearen doppelt verketteten 
Listen bliebiger Elemente zur Verfügung. Analog zu den Modulen ‘Frag’, ‘Hash’ und 
‘Mat’ benutzt ‘List’ das Modul 'Type 1 zur Verwaltung von Elementen beliebiger Typen. 

Auf dem Modul ‘List’ bauen verschiedene Module zur Implementierung von Listen 
spezieller Typen auf. 


listtest (Programmodul) 

Dieses Programmodul dient zum Test des Moduls ‘List’. Es verwendet dazu das Modul 
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‘Cali’. 


main (Programmodul) 

Dies ist das Hauptmodul des gesamten Programms. Es nimmt die Befehle des Benutzers 
entgegen und ruft die entsprechenden Prozeduren auf. Die Benutzung ist in Unterkapitel 
7.2 beschrieben. 

Mali (MAtrix List) 

In diesem Modul sind lineare Listen von Matrizen implementiert. Es stützt sich auf die 
Module ‘List’ und ‘Mat’. 

Mat (MATrix) 

Dieses Modul stellt Prozeduren zur Verwaltung von zweidimensionalen Matrizen belie¬ 
biger Größe für beliebige Elemente zur Verfügung. Es stützt sich auf das Modul ‘Frag’ 
zur Verwaltung der Felder beliebiger Größe und auf das Modul ‘Type’ zur Verwaltung 
von Elementen beliebiger Typen. 


Pram 

Das Modul ‘Pram’ stellt die Zählprozeduren zur Verfügung, die zur Ermittlung des 
Aufwandes für eine PRAM zur Abarbeitung der verschiedenen Algorithmen zur De- 
termiantenberechnung erforderlich sind. Das Modul wird durch die Module ’Det’ und 
’Rema’ benutzt und verwendet seinerseits insbesondere das Modul ‘Cali’ für Verwal¬ 
tungsaufgaben. 


pramtest (Programmodul) 

Dieses Programmodul dient zum Test des Modul ‘Pram’. 


Reli (REal List) 

In diesem Modul sind lineare Listen von Fließkommazahlen implementiert. Es stützt 
sich auf das Modul ‘List’. 


Rema (REal MAtrix) 

Dieses Modul implementiert Matrizen aus Fließkommazahlen. Es stützt sich dazu auf 
das Modul ‘Mat’. 


Rncl (RaNDomize) 

Das Modul ’Rnd’ erlaubt es, Zufallszahlen nach der linearen Kongruenzmethode zu 
erzeugen. Es wird vom Modul ‘Rema’ dazu benutzt, anhand von verschiedenen Para¬ 
metern zufällige Matrizen zu generieren. 


rndtest (Programmodul) 

Dieses Programmodul dient zum Test des Moduls ‘Rnd’. 


simptype (SIMPle TYPE) 

Dieses Modul stellt Verwaltungsprozeduren für die einfachen Datentypen 
[3] ‘LONGCARD’, ‘LONGINT’ und ‘LONGREAL’ zur Verfügung, damit sie in Verbin¬ 
dung mit dem Modul ‘Type’ verwendet werden können. 


Str (STRing) 

Im Modul ‘Str’ sind diverse Prozeduren zur Verarbeitung von Zeichenketten implemen¬ 
tiert. 
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strtest (Programmodul) 

Dieses Programmodul dient zum Test des Moduls ‘Str’. 


Dieses Modul stellt Prozeduren zum Ablegen von Daten auf dem Hintergrundspeicher 
zur Verfügung. Da die Behandlung der Massenspeicher auf den verschiendenen Rechner¬ 
systemen unterschiedlich ist, muß das Modul ’Sys’ bei der Portierung des Programms 
auf einen anderen Rechner neu implementiert werden. 


SysMath 

Die zur Verfügung gestellten mathematischen Funktionen sind von System zu System 
unterschiedlich. Deshalb sind im Modul ‘SysMath’ die Funktionen gesammelt, die im 
Programm benutzt werden. Bei der Portierung des Programms auf ein anderes Com¬ 
putersystem muß dieses Modul evtl, angepaßt werden. 


Type 

Dieses Modul dient der Verwaltung von Elementen beliebiger Datentypen. Ein neuer 
Typ wird im Rahmen dieses Moduls durch die Angabe verschiedener Verwaltungsproze¬ 
duren definiert. Das Modul übernimmt auf diese Weise die Sammlung der Eigenschaften 
verschiedener Typen, um so die Übersichtlichkeit zu steigern. Ohne dieses Modul muß 
jedes der Module ‘Frag’, ‘Hash’, ‘List’ und ‘Mat’ eine entsprechende Verwaltung separat 
enthalten. 


typetest (Programmodul) 

Dieses Programmodul dient zum Test des Moduls ‘Type’. 


7.4 Anmerkungen zur Implementierung 


An dieser Stelle werden einige praktische Gesichtspunkte der Implementierung kommentiert. 

Vergleicht man das Modul ‘algtest’ mit dem Rest des Quelltextes, so erkennt man, daß insbe¬ 
sondere die Anforderung der Pseudoparallelisierung die Länge des Quelltextes stark vergrößert. 
Bei den Algorithmen im Modul ‘Det’ handelt es sich ungefähr um eine Vergrößerung um den 
Faktor 5. 

Weiterhin zeigt sich, daß eine flexible auch nachträglich erweiterbare Programmstruktur, die 
unter dem Gesichtspunkt sich evtl, anschließender Arbeiten wünschenswert ist, nicht uner¬ 
heblichen Aufwand bedeutet. So machen die eigentlich interessierenden Programmteile nur ca. 
30 Prozent des Quelltextes 5 aus. Der gesamte weitere Aufwand ergibt sich einerseits aus ver¬ 
schiedenen Anforderungen an Leistungen und Struktur des Programms, andererseits aus der 
Notwendigkeit, Datentypen zu implementieren, die die verwendete Sprache nicht standardmäßig 
zur Verfügung stellt. 

Auf eine Implementierung auf leistungsfähigeren Rechnern wurde verzichtet, da der benötigte 
Speicherplatz quadratisch mit der Anzahl der Zeilen und Spalten der Matrizen wächst. Der 
zusätzliche Speicherplatz führt nicht zu einer Steigerung der Matrizengröße von weitreichendem 
Interesse. Diese Beschränkung erlaubt es, mit der relativ geringen Rechenleistung eine ATARI 
ST auszukommen. 

Größere Matrizen sind auch aus einem weiteren Grund nicht ohne erheblichen weiteren Aufwand 
sinnvoll. Die Standardarithmetiken verschiedener Implementierungen von Programmierspra¬ 
chen erlauben eine Rechengenauigkeit von typischerweise ca. 19 Stellen. Dies reicht nicht aus, 
um Determinanten größerer Matrizen überhaupt darzustellen. Deshalb ist es für eine deutliche 

5 Gesamtlänge ca. 9500 Zeilen 
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Steigerung der Matrizengröße erforderlich, eine eigene Fließkommaarithmetik zu implementie¬ 
ren, die es ermöglicht, mit beliebiger Genauigkeit 6 zu rechnen. 

Die praktischen Erfahrungen in verschiedenen Bereichen der angewandten Informatik zeigen, 
daß in bestehenden in der Regel zufriedenstellend laufenden Programmen eine Restquote an 
Programmierfehlern im Quelltext von ca. einem Fehler pro 1000 Zeilen Quelltext existiert. 
Beim gegenwärtigen Stand der Technik ist es nicht möglich, Programme wesentlich fehlerfreier 
zu bekommen. 

Besonders bei mathematischen Programmen ist es in der Regel erforderlich, trotzdem nahezu 
Fehlerfreiheit zu erreichen, was die Implementierung solcher Programme zusätzlich erschwert. 
Ein praktisches Beispiel für diese Probleme sind die implementierten Algorithmen zur Determi- 
antenberechnung. Die pseudoparallelen Algorithmen im Modul ‘Det’ besitzen eine Gesamtlänge 
von ca. 2300 Zeilen, erheblich mehr als die Implementierungen im Programmodul ’algtest’. 

Da die Dauer einer Fehlersuche schwer abzuschätzen ist und nur begrenzte Zeit zur Verfügung 
stand, haben die genannten Schwierigkeiten dazu geführt, daß zwar alle Algorithmen lauffähig 
sind, jedoch die im Anhang zu findenden Implementierungen leider keine Determinanten be¬ 
rechnen: 

• P-Alg. im Programmodul ‘algtest’ sowie 

• BGH-Alg., B-Alg. und P-Alg. im Modul ‘Det’. 

Durch umfangreiche Testläufe kann ausgeschlossen werden, daß die Fehler außerhalb der Module 
zu suchen sind. Es muß sich jeweils um fehlerhafte Implementierung der Algorithmusbeschrei¬ 
bungen in den jeweiligen Kapiteln handeln (z. B. Vorzeichenfehler oder falsche Indizes). 


im Rahmen der physikalischen Grenzen 



Kapitel 8 


N achbet rächt ungen 


In diesem Kapitel werden die Ergebnisse dieser Arbeit abschließend betrachtet und bewertet. 


8.1 Vergleich der Algorithmen 


In diesem Unterkapitel werden die vier hauptsächlich in dieser Arbeit behandelten Algorithmen 
zusammenfassend miteinander verglichen. 

Auf die Algorithmen wird, wie in Unterkapitel 1.3 definiert wird, mit Hilfe der Anfangsbuch¬ 
staben ihrer Autoren Bezug genommen: C-Alg., BGH-Alg., B-Alg. und P-Alg.. 

Der Vergleich wird nach folgenden Kriterien durchgeführt: 


• Werden Divisionen benutzt? 

• Werden Fallunterscheidungen durchgeführt? 

• Wie groß ist die Anzahl der Schritte? 

• Wie groß ist die Anzahl der Prozessoren? 

• Welche Einschränkungen für die Anwendbarkeit gibt es? 

• Wie aufwendig ist die Implementierung? 

• Welche Ähnlichkeiten in der Methodik gibt es? 

Im Anschluß an diesen Vergleich wird eine Bewertung der Algorithmen anhand der genannten 
Gesichtspunkte vorgenommen. 

Zunächst sei angemerkt, daß keiner der Algorithmen Fallunterscheidungen verwendet. Dies 
vereinfacht eine Betrachtung aus der Sicht des Schaltkreisentwurfs. 

Es kommen lediglich B-Alg. und BGH-Alg. ohne Divisionen aus und können somit in beliebigen 
Ringen angewendet werden. C-Alg. und P-Alg. können nur in Körpern verwendet werden, falls 
man exakte Ergebnisse verlangt 

P-Alg. darf nur auf ganzzahlige Matrizen angewendet werden. Da P-Alg. Divisionen verwen¬ 
det, ist es jedoch auch dann nicht gewährleistet, daß er die Determinante exakt liefert. Hinzu 
kommt bei P-Alg. als erheblicher Nachteil die eingeschränkte Verwendbarkeit, auch wenn sich 
dies in der praktischen Anwendung nicht sehr stark auswirkt. Diese Eigenschaft von P-Alg. ist 
mit dem Laufzeitverhalten von ‘Quicksort’ vergleichbar, das im Average Case sehr gut, jedoch 
im Worst Case sehr schlecht ist. P-Alg. ist theoretisch nur eingeschränkt verwendbar, prak¬ 
tisch jedoch nahezu uneingeschränkt, da zufällig zusammengestellte Matrizen mit sehr hoher 
Wahrscheinlichkeit invertierbar sind und die Bedingungen für P-Alg. erfüllen. 
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8.1 Vergleich der Algorithmen 


Betrachtet man die Anzahl der Schritte, stellt man fest, daß C-Alg. am schnellsten ist, gefolgt 
von B-Alg. und P-Alg.. Das Schlußlicht bildet mit einigem Abstand BGH-Alg. 

Bezüglich der Anzahl der Prozessoren hat P-Alg. die Nase vorn, gefolgt von C-Alg. und B-Alg.. 
Das Schlußlicht bildet BGH-Alg. wiederum mit Abstand. Zu beachten ist der sehr gute Wert 
für die Prozessoren bei P-Alg., der sich vermutlich kaum weiter verbessern läßt. 

Auf einem Rechner mit einem Prozessor ist P-Alg. der effizienteste, da er insgesamt die wenig¬ 
sten Operationen benötigt. Er wird gefolgt von C-Alg. B-Alg. liegt hier an dritter Stelle gefolgt 
von BGH-Alg.. 

Betrachtet man den Aufwand für die Implementierung gemessen in Anzahl der Quelltextzeilen 1 , 
stellt man fest, daß C-Alg. bei weitem am einfachsten zu implementieren ist. Ihm folgt P-Alg. 
dichtauf. Die Implementierung von B-Alg. ist bereits etwas aufwendiger, aber noch zumutbar. 
BGH-Alg. bildet auch in diesem Punkt mit relativ großem Abstand das Schlußlicht. 

Bei der Betrachtung der Verfahren, die die einzelnen Algorithmen verwenden, erkennt man 
Parallelen zwischen C-Alg. und B-Alg. sowie zwischen BGH-Alg. und P-Alg.. Sowohl in C-Alg. 
als auch in B-Alg. wird jeweils ein Satz verwendet, der zum Zeitpunkt der Veröffentlichung 
der Algorithmen bereits seit mehreren Jahrzehnte bekannt war. Die beiden Sätze sind durch 
diverse Umformungen für die parallele Determinanteberechnung nutzbar gemacht worden. In 
BGH-Alg. und P-Alg. hingegen werden jeweils mehrere auch separat bedeutsame Verfahren zu 
einem Algorithmus in Verbindung gebracht. 

Unter dem Gesichtspunkt, daß BGH-Alg. nicht der einzige divisionsfreie Algorithmus mit po- 
lynomiellem Aufwand ist, besitzt er wegen des erforderlichen Implementierungsaufwandes und 
seiner relativen Langsamkeit nur theoretisches Interesse. 

C-Alg. ist am brauchbarsten für schnelle Erstellung einer Implementierung, falls das Vorhan¬ 
densein von Divisionen nicht weiter stört. 

P-Alg. sollte verwendet werden, falls es im wesentlichen auf Geschwindigkeit ankommt und die 
Einschränkungen für die Anwendbarkeit sowie die Existenz von Divisionen nicht stören. 

B-Alg. ist der Algorithmus unter den vieren mit den ausgewogensten Leistungsmerkmalen und 
geht insgesamt als Sieger aus dem Vergleich hervor. Er besitzt eine ausreichende Effizienz, 
kommt ohne Divisionen aus und unterliegt keinen sonstigen Einschränkungen, wie z. B. P-Alg.. 
Im Zweifelsfall sollte immer B-Alg. verwendet werden. 

Um zum Abschluß einen Eindruck von der Effizienz der Algorithmen im direkten Vergleich zu 
liefern, sind für Tabelle 8.1 die aus den Aufwandsanalysen hervorgegangene Terme beispielhaft 
ausgewertet worden. In der Tabelle werden bei den Anzahlen der Prozessoren die guten Werte 
für P-Alg. und die auffällig schlechten Werte für BGH-Alg. besonders deutlich. 


n 

C-Alg. 

BGH-Alg. 

B-Alg. 

P-Alg. 

Sehr. 

Proz. 

Sehr. 

Proz. 

Sehr. 

Proz. 

Sehr. 

Proz. 

2 

9 

8 

16 

24 

12 

4 

15 

8 

4 

16 

128 

55 

1486 

19 

27 

31 

64 

6 

25 

648 

99 

15343 

27 

361 

53 

216 

8 

25 

2048 

118 

81284 

36 

2234 

53 

512 

10 

36 

5000 

172 

298460 

41 

6417 

81 

1000 

12 

36 

10368 

180 

867715 

49 

15670 

81 

1728 

14 

36 

19208 

196 

2145346 

49 

41922 

81 

2744 

16 

36 

32768 

205 

4708392 

53 

72317 

81 

4096 

18 

49 

52488 

265 

9431425 

59 

120961 

115 

5832 

20 

49 

80000 

275 

17574870 

69 

194580 

115 

8000 


Tabelle 8.1: Vergleich der Algorithmen 


1 Dies besitzt in der Praxis in Verbindung mit den anderen Eigenschaften der Algorithmen eine nicht zu 
unterschätzende Bedeutung. 
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8.2 Ausblick 

Zum Schluß folgt noch eine kurze Liste weiterer Themen, auf die man bei der Bearbeitung der 
vorliegenden Arbeit stößt: 

• Analyse von Schaltkreisen für die beschriebenen Algorithmen 

• Betrachtung von Matrizen mit Elementen ausC 

• Analyse verschiedener Varianten der beschriebenen Algorithmen 

• Analyse des Aufwandes für die Aufgabenverteilung zwischen mehreren Prozessoren 

• Betrachtung anderer Rechnermodelle (insbesondere Rechnermodelle ohne gemeinsamen 
Speicher für die Prozessoren) 

• Analyse des Speicherplatzverbrauchs 

Es bleibt also einiges zu tun... . Für dieses Mal soll das jedoch alles sein. 


Wenn die Gedanken wieder leichter fließen... 

Himmlische Stille rauscht durch die Nacht 
Samtenes Schweigen strömt durch die Luft 
glitzernd breitet sich das Tal in der Ferne 

kein Laut 

ohne Hast läßt die Ruhe verbreiten ihr Glück 
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Anhang A 


Implementierung der parallelen 
Determinantenberechnung 


In diesem Kapitel sind alle Module gesammelt, denen das vorrangige Interesse der Implemen¬ 
tierung gilt. 


A.l Programmodul ’main 4 


MODULE main; 

(* Hauptmodul der Implementierungen zur Diplomarbeit 
'Algorithmen zur parallelen Determinantenberechnung' 

Dieses Modul erlaubt es, die implementierten Algorithmen 
auszuprobieren. 

*) 

FROM InOut IMPORT WriteReal, WriteString, WriteLn, 

ReadCard, ReadString, ReadLn; 

(* Um die korrekte Reihenfolge bei automatischer Kompilation und 
Initialisierung zu gewaehrleisten, werden hier auch die Module 
importiert, die nicht direkt in 'main' verwendet werden. 

*) 

IMPORT SysMath, Sys, 

Func, 

Rnd, Str, 

Type, 

Frag, List, Simptype, 

Mat, Cali, Inli, Reli, 

Hash, Pram, 

Rema, 

Data, Mali, 

Det; 

VAR 

cur: Data.Id; 

(* aktuell in Bearbeitung befindlicher Testdatensatz *) 

PROCEDURE WaitReturn; 

VAR 

input: ARRAY [1..2] OF CHAR; 
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A.l Programmodul ’main 1 


BEGIN 

WriteStringC" <RETURN> 

ReadString(input) 

END WaitReturn; 

PROCEDURE PrintHelpO ; 

(* Diese Prozedur gibt einen Hilfstext fuer den Benutzer aus. *) 

BEGIN 

WriteStringC 

"»>> Hilfe zur Programmbedienung ««"); 

WriteLn; WriteStringC 

"Das Programm versteht folgende Befehle CGross- / "); 

WriteLn; WriteStringC 

"Kleinschreibung wird nicht beachtet):"); 

WriteLn; WriteLn; WriteStringC 
" Befehl Wirkung"); 

WriteLn; WriteStringC 

II _ _II ^ . 

WriteLn; WriteStringC 

" ?, h, diesen Text ausgegeben"); 

WriteLn; WriteStringC 
" help, hilfe"); 

WriteLn; WriteStringC 
" q, exit Programm beenden"); 

WriteLn; WriteStringC 

" find anderen/neuen Testdatensatz bearbeiten"); 

WriteLn; WriteStringC 

" show Testdatensatz anzeigen (Falls die Matrix zu"); 

WriteLn; WriteStringC 

" gross ist, wird sie nicht automatisch mit"); 

WriteLn; WriteStringC 

" angezeigt. Dies kann mit ’mshow’ geschehen)"); 

WriteLn; WriteStringC 

" mshow Matrix des Testdatensatzes anzeigen"); 

WriteLn; WriteStringC 

" del Testdatensatz loeschen"); 

WriteLn; WriteStringC 

" ls Testdatensaetze auflisten"); 

WriteStringC" (die im Speicher stehen)"); 

WriteLn; WriteStringC 

" param Parameter fuer Matrizengenerierung festlegen"); 

WriteLn; WriteStringC 
" gen Matrix generieren"); 

WriteLn; WaitReturn; WriteStringC 

" csanky Det. mit Alg. von Csanky berechnen"); 

WriteLn; WriteStringC 

" bgh Det. mit Alg. von Borodin, von zur Gathen"); 

WriteLn; WriteStringC 

" und Hopcroft berechnen"); 

WriteLn; WriteStringC 

" berk Det. mit Alg. von Berkowitz berechnen"); 

WriteLn; WriteStringC 

" pan Det. mit Alg. von Pan berechnen"); 

WriteLn; 

END PrintHelp; 

PROCEDURE CommandNumber(VAR c, i: ARRAY OF CHAR): CARDINAL; 

(* ’c’ muss eine Zeichenkette entsprechend der Beschreibung fuer 
die Variable ’commands’ enthalten, ’i’ wird als Befehl 
betrachtet. Anhand von ’commands’ wird diesem Befehl eine 
Befehlsnummer zugeordnet und als Funktionswert zurueck- 
gegeben. *) 

VAR 

pos: CARDINAL; 

erg: CARDINAL; (* Funktionsergebnis *) 
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BEGIN 

IF Str.In(i,c,pos) THEN 

WHILE (c[pos] # ’,’) DO 
INC(pos) 

END; 

INC(pos); 
erg:= 0; 

REPEAT 

erg: = erg*10 + (0RD(c[pos]) - ORD(’O’)); 

INC(pos); 

UNTIL (c [po s] = ’;’) OR (c[pos] = CHR(O)); 

ELSE 

erg:= 0 

END; 

RETURN erg 
END CommandNumber; 

PROCEDURE duirnny; 

BEGIN 

WriteStringC Befehl noch nicht implementiert"); WriteLn 
END dummy; 

PROCEDURE IsSet(dat: Data.Id): BOOLEAN; 

(* Falls ’dat = NIL’ wird eine Fehlermeldung ausgeben. In diesem 
Fall ist der Funktionswert FALSE, andernfalls TRUE. *) 

BEGIN 

IF (dat = Data.Id(NIL)) THEN 

WriteStringC kein Datensatz ausgewaehlt") ; 

WriteStringC (zuerst find benutzen)"); 

WriteLn; 

RETURN FALSE 

END; 

RETURN TRUE 
END IsSet; 

VAR 

input: ARRAY [1..10] OF CHAR; 

(* Eingabe des Benutzers *) 
commands: ARRAY [1..160] OF CHAR; 

(* Zeichenkette zur Zuordnung von Befehlen zu Befehlsnummern; 
Format: 

command : Befehlskode { Befehlskode } 

Befehlskode: <Zeichenkette> <Ziffernfolge> 

*) 

CommNum: CARDINAL; 

(* Befehlsnummer zu ’input’ *) 
name: ARRAY [1..16] OF CHAR; 

(* vom Benutzer eingegebener Dateiname *) 

PROCEDURE ComParam; 

(* Befehl ’param’ *) 

VAR 

input: ARRAY [1..2] OF CHAR; 

size: CARDINAL; (* vom Benutzer angegebene Matrizengroesse *) 
rank: CARDINAL; (* ... Rang *) 

mult: CARDINAL; (* ... Vielfachheit eines Eigenwertes *) 
i: Data.tAlg; 

BEGIN 

IF IsSet(cur) THEN 

FOR i:= Data.laplace TO Data.pan DO 
Data.SetAlg(cur, i, 0.0, 0, 0) 

END; 

WriteLn; 

WriteStringC'Anzahl der Zeilen und Spalten? "); 
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A.l Programmodul ’main 1 


ReadCard(size); WriteLn; 

WriteStringC'Rang? "); ReadCard(rank); WriteLn; 
WriteStringO'Nachkommastellen (j/n)? ") ; 
ReadString(input); WriteLn; 

Rema.SetSize( Data.GetMat(cur), size, size); 
Rema.SetRank( Data.GetMat(cur), size); 
Rema.SetReal( Data.GetMat(cur), 

Str.Equal(input,"j") 

); 

REPEAT 

WriteStringC'Vielfachheit ungleich 1 eines"); 
WriteStringC Eigenwertes (0,1 : Ende) ? "); 
ReadCard(mult); WriteLn; 

IF mult > 1 THEN 

Rema.SetMultiplicity( 

Data.GetMat(cur), mult 

); 

END 

UNTIL mult <= 1; 

Data.HasChanged(cur) 

END 

END ComParam; 


PROCEDURE ComAlg(alg: Data.tAlg); 

(* Befehle: csanky, bgh, berk, pan; 

’alg’ gibt zu benutzenden Algorithmus an *) 

VAR 


det: LONGREAL; 
BEGIN 


Pram.Start; 

CASE alg OF 

Data.csanky : 

det:= Det.Csanky( Data.GetMat(cur) ) 

I Data.bgh : 

det:= Det.BGH( Data.GetMat(cur) ) 

I Data.berk : 

det:= Det.Berkowitz( Data.GetMat(cur) ) 
I Data.pan : 

det:= Det.Pan( Data.GetMat(cur) ) 


END; 


Pram.Ende; 

Data. SetAlg(cur, alg, det, Pram.GezaehlteProzessorenQ , 
Pram.GezaehlteSchritte() 


) 

END ComAlg; 


BEGIN 

Str.Empty(commands); 

Str.Assign(commands,"h,1;?,1;help,1;hilfe,1;q,2;exit,2;"); 
Str.Append(commands,"find,3;show,4;mshow,5;param,6;gen,7;"); 
Str.Append(commands,";csanky,9;bgh,10;berk,11;pan,12;"); 

Str.Append(commands,"del,13;ls,14;"); 
cur:= Data.Id(NIL); 


WriteLn; 

WriteStringC 1 *** Algorithmen zur parallelen "); 
WriteStringC'Determinantenberechnung ***"); WriteLn; 
REPEAT 

WriteLn; 

WriteStringC» "); ReadString(input) ; 

WriteLn; 

Str.Lower(input); 

CommNum:= CommandNumber(commands, input); 

CASE CommNum OF 

1 : (* h, ?, help, hilfe *) 



A.l Programmodul ’main 1 


125 


PrintHelp 

I 2 : (* q, exist *) 

(* tue nichts *) 

I 3 : (* find *) 

IF cur # Data.Id(NIL) THEN 
Data.FlushOnly(cur) 

END; 

WriteStringC'Name? "); ReadString(name) ; WriteLn; 
Data.Find(cur,name); 

I 4 : (* show *) 

IF IsSet(cur) THEN 
Data.Write(cur); 

WriteString("Bei der Generierung bestimmte"); 
WriteStringC Determinante: "); 

WriteReal( Rema.Det( Data.GetMat(cur) ), 12, 4); 
WriteLn; 

WriteString( 

" ... zur Fortsetzung ’RETURN’-Taste ..."); 
ReadString(input); 

IF Rema.Rows( Data.GetMat(cur) ) 

<= Rema.MaxIoRow 
THEN 

Rema.Write( Data.GetMat(cur) ) 

END 

END 

I 5 : (* mshow *) 

IF IsSet(cur) THEN 

Rema.Write(Data.GetMat(cur)) 

END 

I 6 : (* param *) 

ComParam 
I 7 : (* gen *) 

IF IsSet(cur) THEN 

Rema.Randomize( Data.GetMat(cur) ) 

END; 

I 9..12 : 

(* csanky, bgh, berk, pan *) 

IF IsSet(cur) THEN 

ComAlg(VAL(Data.tAlg, CommNum-8)) 

END; 

I 13: (* del *) 

IF cur # Data.Id(NIL) THEN 
Data.FlushOnly(cur) 

END; 

WriteStringC'Name? "); ReadString(name); WriteLn; 
Data.Find(cur,name); 

Data.Del(cur) 

I 14: (* ls *) 

Data.ListNames; 

WHILE Data.NextName(name) DO 
WriteString(name); WriteLn 

END 

ELSE 

WriteStringC Befehl unbekannt"); 

WriteStringC (fuer Hilfestellung h eingeben)"); 
WriteLn 

END 

UNTIL CommNum= 2; 

Data.End 


END main. 
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A.2 Definitionsmodul ’Det‘ 


DEFINITION MODULE Det; 

(* Verschiedene Algorithmen zur Determinantenberechnung 

In den Algorithmen dieses Moduls werden die Zaehlprozeduren 
des Moduls ’Pram’ aufgerufen, so dass nach jeder Berechnung 
einer Determinante festgestellt werden kann, wieviele 
Schritte und Prozessoren eine PRAM zur Abarbeitung des 
Algorithmus benoetigt. 

*) 

IMPORT Sys, SysMath, Func, Type, List, Frag, Hash, Reli, Mat, 

Pram, Rema, Mali; 

FROM Rema IMPORT tMat; 

PROCEDURE EineSpalte(mat: tMat): LONGREAL; 

(* ... Entwicklungssatz von Laplace (Entwicklung nach einer 
Spalte) *) 

PROCEDURE Laplace(mat: tMat): LONGREAL; 

(* ... Entwicklungssatz von Laplace (Entwicklung nach k Spalten) *) 

PROCEDURE Csanky(mat: tMat): LONGREAL; 

(* ... Algorithmus von Csanky *) 

PROCEDURE BGH(mat: tMat): LONGREAL; 

(* ... Algorithmus von Borodin, von zur Gathen und Hopcroft *) 

PROCEDURE Berkowitz(mat: tMat): LONGREAL; 

(* ... Algorithmus von Berkowitz *) 

PROCEDURE Pan(mat: tMat): LONGREAL; 

(* ... Algorithmus von Pan *) 

END Det. 


A.3 Implementierungsmodul ’Det‘ 


IMPLEMENTATION MODULE Det; 

(* Verschiedene Algorithmen zur Determinatenberechnung 
( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT TSIZE, ADR; 

FROM InOut IMPORT WriteLn, WriteString, WriteCard, WriteReal; 

IMPORT Sys, SysMath, Func, Type, List, Frag, Hash, Reli, Mat, 

Pram, Rema, Mali; 

FROM Sys IMPORT tPOINTER; 

FROM SysMath IMPORT ld, lg, real, power, Card2LCard, Card2LReal, 

LReal2Card, LReal2LCard, LCard2Card, LCard2LReal, 
LInt2LReal; 

FROM Func IMPORT Message, Error; 

FROM Rema IMPORT tMat, Rows, Columns, Eiern, Set; 

CONST (* Schalter zur Fehlersuche (TRUE: entsprechender Programm¬ 
teil gibt Testmeldungen aus): *) 
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BGHDebug = TRUE; 

(* ... Algorithmus von Borodin, von zur Gathen und 
Hopcroft (Prozedur ’BGH’ ... ) *) 

BerkDebug = TRUE; 

(* ... Algorithmus von Berkowitz *) 

BerkEpsilon = 0.5; 

(* 'Epsilon’ fuer den Berkowitz-Algorithmus *) 

HashSize = 10000L; 

(* Groessenvorgabe fuer den verwendeten Hash-Speicher *) 

VAR Matld: Type.Id; (* Typidentifikator fuer 'Matrix' *) 

Listld: Type.Id; (* Typidentifikator fuer 'List' *) 

(***** gemeinsame Prozeduren verschiedener Algorithmen: *****) 

PROCEDURE CheckSquare(mat: tMat; proc: ARRAY 0F CHAR); 

(* Falls 'mat' keine quadratische Matrix ist, wird eine 
Fehlermeldung ausgegeben. Dabei erscheint 'proc' als 
Funktionsname in der Meldung. *) 

BEGIN 

IF Rows(mat) # Columns(mat) THEN 
Error(proc, 

"Die Matrix ist nicht quadratisch.") 

END; 

IF (Rows(mat) < 1) 0R (Columns(mat) < 1) THEN 
Error(proc, 

"Die Matrix besitzt weniger als eine Zeile oder Spalte !??"); 

END 

END CheckSquare; 

PROCEDURE SetToeplitz(a: tMat); 

(* Anhand der Elemente der in ihrer ersten Spalte wird ’a’ in eine 
untere Dreiecks-Toeplitz-Matrix ueberfuehrt. 

Nach dem Aufruf gilt also: 

a_{i,j} = a_{i-l,j-l} und i<j \Rightarrow a_{i,jl = 0 

*) 

VAR i, (* Zeile *) 
j, (* Spalte *) 
r, (* Zeilen insgesamt *) 
c: (* Spalten insgesamt *) 

LONGCARD; 

BEGIN 

r:= Rows(a); 
c:= Columns(a); 

FOR j:= 2 TO c DO 

Set(a, 1, j , 0.0) 

END; 

FOR i:= 2 TO r DO 

FOR j:= 2 TO c DO 

Set(a, i, j, Elem(a, i-1, j-1)) 

END 

END 

END SetToeplitz; 

PROCEDURE MultMatList(VAR res: tMat; 

matlist: List.tList; 
toepliz: B00LEAN); 

(* In ’matlist’ muss eine Liste von Matrizen (Typ tMat) 
uebergeben werden. 

In 'res' wird das Produkt aller dieser Matrizen zurueckgegeben. 

Der Inhalt von ’matlist’ geht verloren. 
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Falls in ’toepliz’ der Wert TRUE uebergeben wird, geht die 
Prozedur davon aus, das ’matlist’ untere Dreiecks-Toepliz-Matrizen 
enthaelt und benutzt einen effizienteren Multiplikations¬ 
algorithmus . 

Bei ’toepliz = FALSE’ wird ’Rema.Mult’ zur Multiplikation verwendet, 
’res’ wird in ’MultMatList’ angelegt, ’matlist’ muss ausserhalb 
von ’MultMatList’ angelegt und geloescht werden. *) 

VAR 1: ARRAY [1..2] QF Mali.tMali; 
ml, m2, m: tMat; 
source, target: [1..2]; 
i,k: LONGCARD; 
sum: LONGREAL; 

AddList: Reli.tReli; 

(* Liste fuer Addition nach der Binaerbaummethode *) 

BEGIN 

Reli.Use(AddList); 

Mali.Use(l[1]); 

1 [2] : = matlist; 
source:= 1; target:= 2; 

IF List.Count( 1[target] ) = 0 THEN 

Error("Det.MultMatList", "Die Liste ist leer") 

END; 

WHILE List.Count( 1[target] ) > 1 DO 

target:= 3 - target; source:= 3 - source; 

Pram.Parallelstart("Det.MultMatList"); 

REPEAT 

List.First( 1[source] ); 
ml:= Mali.OutCur( 1[source] ); 
m2:= Mali.OutCur( 1 [source] ); 

Rema.Use(m, Rows(ml), Columns(m2) ); 

IF toepliz THEN 

(* effizienter Multiplikationsalgorithmus fuer 
untere Dreiecks-Toepliz-Matrizen: *) 

IF Columns(ml) # Rows(m2) THEN 
Error("Det.MultMatList", 

"Die Liste enthaelt inkompatible Matrizen."); 

END; 

Pram.Parallelstart("Det.MultMatList:Toeplitz"); 

FOR i:= 1 TO Rows(ml) DO 
List.Empty(AddList); 

(* untere Dreieckmatrix; deshalb 

Rows(m) statt Columns(m) moeglich: *) 

FOR k:= 1 TO Columns(ml) DO 

Reli.InsertBehind(AddList, 

Eiern(ml, i, k) * Eiern(m2, k, 1) 

) 

END; 

(* Die Durchlaeufe der obigen Schleife werden 
parallel durchgefuehrt: *) 

Pram.Prozessoren(Rows(m)); 

Pram.Schritte(1); 

Set(m, i, 1, Pram.AddList(AddList) ); 

Pram.NaechsterBlock("Det.MultMatList:Toeplitz") 

END; 

Pram.ParallelEnde("Det.MultMatList:Toeplitz"); 
SetToeplitz(m) 

ELSE 

Rema.Mult(ml, m2, m) 


END; 
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Rema.DontUse(ml); 

Rema.DontUse(m2); 

Mali.InsertBehind( 1 [target], m ); 

IF List.Count( 1 [source] ) = 1 THEN 
Mali.InsertBehind( 

1 [target], Mali.OutCur( 1 [source] ) 

) 

END; 

Pram.NaechsterBlockO'Det .MultMatList") ; 

UNTIL List.Count( 1[source] ) = 0; 

Pram.ParallelEnde("Det.MultMatList"); 

END; 

List.First( 1 [target] ); 
res:= Mali.OutCur( 1 [target] ); 

List. DontUseQ [1]); 

List.DontUse(AddList) 

END MultMatList; 

PROCEDURE MatFragSet(f: Frag.tFrag; index: LONGCARD; item: tMat); 

(* ... zur vereinfachten Handhabung *) 

BEGIN 

Frag.Setltem(f, index, tPQINTER(item)) 

END MatFragSet; 

PROCEDURE MatFragGet(f: Frag.tFrag; index: LONGCARD): tMat; 

(* ... zur vereinfachten Handhabung *) 

BEGIN 

RETURN tMat( Frag.Getltem(f, index) ) 

END MatFragGet; 

PROCEDURE Praefixalg(x, res: Frag.tFrag); 

(* ’x’ und ’res’ muessen Felder von Matrizen (Typ ’Rema.tMat’) sein. 

In jedem Element ’i’ von ’res’ wird das Produkt der ersten ’i’ 
Elemente von ’x’ zurueckgegeben. Die Produkte werden mit Hilfe 
des Ladner-Fischer-Praefixalgorithmus berechnet. 

’x’ darf leere Elemente ( = NIL ) enthalten. Die minimal zulaessige 
Laenge von ’x’ ist 1. 

*) 

VAR UpperHalf, ResUpperHalf, 

LowerQuarter, ResLowerQuarter: Frag.tFrag; 
frontier: LONGCARD; 

(* groesster Index der unteren Haelfte von ’x’ bzw. ’res’ *) 
i: LONGCARD; 

BEGIN 

IF Frag.GetHigh(x) = 1 THEN 

(* Es ist nichts zu berechnen (kopiere Eingabe): *) 

MatFragSet( res, 1, Rema.Copy(MatFragGet(x, 1)) ) 

ELSIF Frag.GetHigh(x) = 2 THEN 

(* Es ist nur das zweite Element von ’res’ zu berechnen 
(eine Matrizenmultiplikation): *) 

MatFragSet( res, 1, Rema.Copy(MatFragGet(x, 1)) ); 

IF (MatFragGet(x, 1) # tMat(NIL)) 

AND (MatFragGet(x, 2) # tMat(NIL)) 

THEN 

MatFragSet( res, 2, Rema.CreateMult( 

MatFragGet(x, 1), 

MatFragGet(x, 2) 

) 

) 

END 

ELSE 

IF (Frag.GetHigh(x) MOD 4) # 0 THEN 
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ErrorC'Det .Praefixalg", 

"Die Feldgroese ist nicht durch 4 teilbar.") 

END; 

frontier:= Frag.GetHigh(x) DIV 2; 

Pram.Parallelstart("Det.Praefixalg:halves"); 

(* multipliziere die Elemente der unteren Haelfte des 
Eingabefeldes ’x’ paarweise miteinander: *) 

Frag.Use(LowerQuarter, Matld, 1, frontier DIV 2); 
Frag.Use(ResLowerQuarter, Matld, 1, frontier DIV 2); 

Frag.AddRef(ResLowerQuarter, TRUE); 

Pram.Parallelstart("Det.Praefixalg:lower"); 

FÜR i:= 1 TO frontier DIV 2 DO 

IF (MatFragGet(x, 2 * i - 1) # tMat(NIL)) 

AND (MatFragGet(x, 2 * i) # tMat(NIL)) 

THEN 

MatFragSet(LowerQuarter, i, 

Rema.CreateMult( 

MatFragGet(x, 2 * i - 1), 

MatFragGet(x, 2 * i) 

) 

) 

END; 

Pram.NaechsterBlock("Det.Praefixalg:lower") 

END; 

Pram.ParallelEnde("Det.Praefixalg:lower"); 

(* berechne die Elemente mit geradem Index der unteren 
Haelfte des Ergebnisfeldes ’res’: *) 

Praefixalg(LowerQuarter, ResLowerQuarter); 

FOR i:= 1 TO frontier DIV 2 DO 
MatFragSet(res, i * 2, 

MatFragGet(ResLowerQuarter, i)) 

END; 

Frag.DontUse(LowerQuarter); 

Frag.DontUse(ResLowerQuarter); 

Pram.NaechsterBlock("Det.Praefixalg:halves"); 

(* loese das Problem rekursiv fuer die obere Haelfte des 
Eingabefeldes ’x’: *) 

Frag.Use(UpperHalf, Matld, 1, frontier); 

Frag.AddRef(UpperHalf, TRUE); 

Frag.Use(ResUpperHalf, Matld, 1, frontier); 

FOR i:= frontier + 1 TO Frag.GetHigh(x) DO 

MatFragSet(UpperHalf, i - frontier, MatFragGet(x, i)) 

END; 

Praefixalg(UpperHalf, ResUpperHalf); 

Pram.ParallelEnde("Det.Praefixalg:halves"); 

Pram .Parallelstart("Det.Praefixalg:nextStep"); 

(* berechne die Elemente mit ungeradem Index der unteren 
Haelfte des Ergebnisfeldes ’res’: *) 

MatFragSet( res, 1, Rema.Copy(MatFragGet(x, 1)) ); 

Pram.ParallelStart("Det.Praefixalg:oddlower"); 

FOR i:= 3 TO (frontier DIV 2) BY 2 DO 

IF (MatFragGet(res, i - 1) # tMat(NIL)) 

AND (MatFragGet(x, i) # tMat(NIL)) THEN 
MatFragSet( res, i, 

Rema.CreateMult( 

MatFragGet(res, i - 1), 

MatFragGet(x, i) 
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) 

); 

END; 

Pr am. NaechsterBlockO'Det. Praef ixalg: oddlower") 

END; 

Pram.ParallelEnde("Det.Praefixalg:oddlower"); 

Pram. NaechsterBlockO'Det .Praef ixalg:nextStep") ; 

(* berechne die Elemente der oberen Haelfte des Ergebnis¬ 
feldes ’res’: *) 

Pram.Parallelstart("Det.Praefixalg:resupper"); 

FÜR i:= frontier + 1 TO Frag.GetHigh(res) DO 

IF (MatFragGet(res, frontier) # tMat(NIL)) AND 

(MatFragGet(ResUpperHalf, i - frontier) # tMat(NIL)) 
THEN 

MatFragSet(res, i, 

Rema.CreateMult( 

MatFragGet(res, frontier), 

MatFragGet(ResUpperHalf, i-frontier) 

) 

) 

END; 

Pram.NaechsterBlock("Det.Praefixalg:resupper") 

END; 

Pram.ParallelEnde("Det.Praefixalg:resupper"); 

Frag.DontUse(UpperHalf); 

Frag.DontUse(ResUpperHalf); 

Pram.ParallelEnde("Det.Praefixalg:nextStep"); 

END 

END Praefixalg; 

PROCEDURE MultLadnerFischer(l: Mali.tMali; m: tMat; max: LONGCARD); 

(* Mit Hilfe des Ladner-Fischer-Praefixalgorithmus werden 
fuer ’m’ alle Potenzen von 1 bis ’max’ berechnet und in 
’l’ zurueckgegeben. 

Dabei werden Zaehlprozeduren des Moduls ’Pram’ aufgerufen. 

*) 

VAR i, size: LONGCARD; 

x, res: Frag.tFrag; 

BEGIN 

size:= LReal2LCard( 

power( 2.0, 

LCard2LReal( Func.Ceil(ld(LCard2LReal(max))) ) 

) 

); 

Frag.Use(x, Matld, 1, size); 

Frag.Use(res, Matld, 1, size); 

FOR i:= 1 TO max DO 

MatFragSet(x, i, Rema.Copy(m)) 

END; 

Praefixalg(x, res); 

List.Empty(1); 

FOR i:= 1 TO max DO 

Mali.InsertBehind(l, MatFragGet(res, i)) 

END; 

Frag.DontUse(x); 

Frag.DontUse(res) 

END MultLadnerFischer; 

(***** Algorithmus nach der Spaltenentwicklung von Laplace *****) 

(***** ( Spezialfall des Entwicklungssatzes ) *****) 
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PROCEDURE RemoveRowAndCoTumn(a: tMat; r, c: LONGCARD): tMat; 
(* Funktionsergebnis ist die Matrix, die man aus ’a’ durch 
Streichen von Zeile ’r’ und Spalte ’c’ erhaelt. 

*) 

VAR res: tMat; (* Funktionsergebnis *) 
i, j, i2, j2: LONGCARD; 

BEGIN 


Rema.Use(res, Rows(a) - 1, Columns(a) - 1); 
FOR i:= 1 TO Rows(res) DO 

FOR j:= 1 TO Columns(res) DO 
IF i < r THEN 
i2: = i 


ELSE 

i2:= i+1 


END; 

IF j < c THEN 
j2:= j 

ELSE 

j2:= j+1 

END; 

Set(res, i, j, Elem(a, i2, j2)) 

END 


END; 

RETURN res 

END RemoveRowAndColumn; 


PROCEDURE EineSpalte(a: tMat): LONGREAL; 

(* Funktionsergebnis ist die Determianten von ’a’. Sie wird durch 
rekursive Entwicklung nach der ersten Spalte berechnet. 

*) 

VAR WorkMat: tMat; 

(* Untermatrix von ’a’, deren Determinante als naechste 
zu berechnen ist *) 

DetList: Reli.tReli; 

(* Liste der vorzeichenbehafteten Determinanten von Unter- 
Matrizen von ’a’ *) 
i: LONGCARD; (* Schleifenzaehler *) 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
AddList: Reli.tReli; 
res: LONGREAL; 

BEGIN 

CheckSquare(a,"Det.Spalten"); 
n:= Rows(a); 

IF n = 1 THEN 

RETURN Elem(a,1,1) 

END; 


Reli.Use(DetList); 
Reli.Use(AddList); 


Pram.Parallelstart("Det.EineSpalte"); 

FOR i:= 1 TO n DO 

WorkMat:= RemoveRowAndColumn(a, i, 1); 

Reli.InsertBehind( 

DetList, EineSpalte(WorkMat) * power( -1.0, real(i+1) ) 

); 

Rema.DontUse(WorkMat); 

Pram.NaechsterBlock("Det.EineSpalte") 

END; 

Pram.ParallelEnde("Det.EineSpalte"); 

List.First(DetList); 

FOR i:= 1 TO n DO 

Reli.InsertBehind(AddList, 
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Elem(a, i, 1) * Reli.Cur(DetList) 

); 

List.Next(DetList) 

END; 

(* Die Schleifendurchlaufe werden parallel durchgefuehrt: *) 
Pram.Prozessoren( n ); 

Pram.Schritte( 1 ); 

res:= Pram.AddList(AddList); 

(* Der zur Addition der Elemente von 'AddList’ wird in 
'Pram.AddList’ gezaehlt. *) 

List.DontUse(DetList); 

List.DontUse(AddList); 

RETURN res 
END EineSpalte; 

PROCEDURE Laplace(a: tMat): LONGREAL; 

BEGIN 

CheckSquare(a,"Det.Laplace"); 

IF Rows(a) = 1 THEN 
RETURN Elem(a,1,1) 

END; 

RETURN EineSpalte(a) 

END Laplace; 

(***** Algorithmus von Csanky *****) 

(***** nach dem Satz von Frame: *****) 

PROCEDURE Csanky(a: tMat): LONGREAL; 

VAR bO: tMat; 

tr: LONGREAL; (* Spur von ’a’ *) 

MatList: Mali.tMali; 

(* Liste von zu multiplizierenden Matrizen *) 
work: tMat; 

(* aktuelle Arbeitsmatrix *) 
i,j: LONGCARD; (* Schleifenzaehler *) 
z: LONGREAL; (* Zwischenergebnis im Algorithmus *) 
det: LONGREAL; (* Determinante von ’a’ *) 

size: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
BEGIN 

Mali.Use(MatList); 

CheckSquare(a,"Det.Csanky"); 

IF Rows(a) = 1 THEN 
RETURN Elem(a,1,1) 

END; 

size:= Rows(a); 
tr:= Rema.Trace(a); 

(* Der Aufwand wird in ’Rema.Trace’ gezaehlt. *) 

Pram.Parallelstart("Det.Csanky"); 

FOR i:= size - 1 TO 1 BY -1 DO 

Rema.Use(work, Rows(a), Columns(a)); 

Rema.Assign(a, work); 

(* Zuweisungen werden nicht gezaehlt. *) 

z:= tr / real(i); 

Pram.Prozessoren(l); 

Pram.Schritte (1); 


FOR j:= size TO 1 BY -1 DO 
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Set(work, j, j, Elem(work, j, j) - z) 

END; 

Pram.Prozessoren(size); 

Pram.Schritte(1); 

Mali.InsertBefore(MatList, work); 

(* Verwaltungsaufwand wird nicht gezaehlt. *) 

Pram.NaechsterBlockO'Det .Csanky") ; 

(* Die Schleifendurchlaeufe werden parallel durchgefuehrt. *) 

END; 

Pram.ParallelEnde("Det.Csanky"); 

MultMatList(bO, MatList, FALSE); 

(* ’bO’ wird als Zwischenspeicher missbraucht: *) 
Rema.Mult(a,bO,bO); 

(* Der Aufwand wird im Modul ’Rema’ gezaehlt. *) 

det:= Rema.Trace(bO) / real( size ); 

(* Der Aufwand fuer ’Rema.Trace’ wird dort gezaehlt. *) 
Pram.Prozessoren(l); 

Pram.Sehritte(l); 

List.DontUse(MatList); 

RETURN det 
END Csanky; 

(***** Algorithmus von Borodin, von zur Gathen und Hopcroft: *****) 

(* Typen fuer den Algorithmus: *) 

TYPE tOpType = ( constant, indeterminate, node ); 
tOp = POINTER TO tOpRec; 
t OpRe c 

= RECORD (* ein Operand eines Knotens *) 

CASE vOpType: tOpType OF 
constant: 

(* der Operand ist eine Konstante *) 

ConstVal: LONGREAL (* Wert der Konstante *) 

I indeterminate: 

(* der Operand ist eine Unbestimmte *) 

IndetVal: LONGREAL 

(* Wert, der bei der Ausfuehrung des 
Programms fuer die Unbestimmte 
eingesetzt werden soll *) 

I node: 

(* der Operand ist das Ergebnis eines anderen 
Knotens *) 

NodePos: List.tPos 

(* Position des Knotens in der 
Knotenliste *) 

END 

END; 

tNode = POINTER TO tNodeRec; 
tNodeRec 

= RECORD (* ein Additions- oder Multiplikationsknoten *) 
DegValid: BOOLEAN; 

(* TRUE: ’degree’ wurde bereits gesetzt *) 
degree: LONGCARD; 

(* Grad des Knotens *) 

ResValid: BOOLEAN; 

(* TRUE: ’res’ wurde bereits berechnet *) 
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res: LONGREAL; 

(* Ergebnis des Knotens *) 
add: BOOLEAN; 

(* TRUE: der Knoten ist ein Additionsknoten; 
FALSE: ... ein Multiplikationsknoten *) 
opl, op2: tOp 

(* die beiden Operanden *) 

END; 

tSer = Frag.tFrag; (* power SERies *) 

(* jede Potenzreihe wird als Feld ihrer homogenen Komponen¬ 
ten bis zum festgelegten Grad implementiert *) 

VAR Nodeld: Type.Id; (* Typidentifikator eines Knotens *) 

Opld : Type.Id; (* ... eines Operanden *) 

Serld: Type.Id; (* ... eine Potenzreihe *) 

vMaxDeg: LONGCARD; 

(* maximaler Grad der homogenen Komponenten, die fuer 
Potenzreihen betrachtet werden *) 

PROCEDURE MaxDegO : LONGCARD; 

(* Funktionsergebnis: siehe ’vMaxDeg’; 

die Deklaration der Prozedur ’MaxDeg’ erlaubt, verglichen mit 
anderen Moeglichkeiten der Handhabung des maximalen Grades, 
groessere Flexibilitaet beim Experimentieren mit der 
Implementierung des Algorithmus *) 

BEGIN 

RETURN vMaxDeg 
END MaxDeg; 

PROCEDURE ConvertMat(a: tMat; VAR m2: LONGREAL); 

(* Die Elemente von ’a’ werden so transformiert, dass sie im Inter¬ 
vall von -0.01 bis 0.01 liegen. In ’m2’ wird der Faktor zurueck- 
gegeben, mit dem die Determinante der transformierten Matrix ’a’ 
multipliziert werden muss, um die Determinante der urspruenglichen 
Matrix zu erhalten. 

*) 

VAR m, ml, max: LONGREAL; 

i, j, size: LONGCARD; 

BEGIN 

size:= Rows(a); 
max:= 0.0; 

F0R i:= 1 T0 size DO 

F0R j:= 1 T0 size DO 

max:= Func.MaxReal(ABS(Elem(a, i, j)), max) 

END 

END; 

m:= power( 10.0, real(Func.Ceil(lg(max)) + 1) ); 
ml:= 1.0 / m; 

m2:= power(m, real(size)); 

F0R i:= 1 T0 size DO 

F0R j:= 1 T0 size DO 

Set(a, i, j, Elem(a, i, j) * ml) 

END 

END 

END ConvertMat; 

(*-*) 

(* Operationsprozeduren fuer Modul 'Type’: *) 

PROCEDURE NewOpKo: tPOINTER) ; 

(* Initialisierungsprozedur fuer Modul 'Type’ *) 

VAR 0: tOp; 
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BEGIN 

0: = o; 

WITH CT DO 

vOpType:= constant; 

ConstVal:= 0.0 

END 

END NewOpI; 

PROCEDURE NewNodeI(n: tPOINTER); 

(* Initialisierungsprozedur fuer Modul 'Type’ (Typ: Nodeld) *) 

VAR N: tNode; 

BEGIN 

N: = n; 

WITH N~ DO 

DegValid:= FALSE; 
degree:= 0; 

ResValid:= FALSE; 
add:= TRUE; 

NewOpI(opl); 

NewOpI(op2) 

END 

END NewNodel; 

PROCEDURE DelNodeI(n: tPOINTER); 

(* Loeschprozedur fuer Modul 'Type’ (Typ: Nodeld) *) 

VAR N: tNode; 

BEGIN 

N: = n; 

Type.Dell(Opld, N~.opl); 

Type.Dell(Opld, N~.op2) 

END DelNodel; 

PROCEDURE NewSerI(s: tPOINTER); 

VAR S: tSer; 

i: LONGCARD; 
op: tOp; 

BEGIN 

S:= tSer (s); 

Frag.Use(S, Opld, 0, MaxDegO); 

FOR i: = 0 TO MaxDegO DO 
op:= Type.NewI(Opld); 

Frag.SetItem(S, i, op) 

END 

END NewSerl; 

PROCEDURE DelSerl(s: tPOINTER); 

VAR S: tSer; 

BEGIN 

S:= tSer (s); 

Frag.DontUse(S) 

END DelSerl; 

(* - *) 

(* Handhabung von Operanden (Typ ’tOp’): *) 

PROCEDURE OpAssign(a: tOp; VAR b: tOp); 

(* In ’b’ muss entweder NIL oder ein initialisierte Operator ueber- 
geben werden. Dieser wird in ’OpAssign’ geloescht. In ’ b’ wird 
eine neu angelegte Kopie von ’a’ zurueckgegeben. 

*) 

BEGIN 

Type.Dell(Opld, b); 
b:= Type.NewI(Opld); 


b~.vOpType:= a~.vOpType; 
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CASE b".vOpType OF 

constant : b".ConstVal:= a".ConstVal; 

I indeterminate: b".IndetVal:= a".IndetVal; 

I node : b".NodePos:= a".NodePos 

END 

END OpAssign; 

PROCEDURE DpAdd(prog: List.tList; a,b: tOp; VAR res: tOp); 

(* An das Ende von ’prog’ wird eine Anweisung zur Addition von 

’a’ und ’b’ angehaengt. Die Position dieser Anweisung innerhalb 
von ’prog’ (als Operator gespeichert) wird in ’res’ zurueck- 
gegeben. Die Zuweisung der Ergebnisses an ’res’ erfolgt wie bei 
’OpAssign’. 

’a’, ’b’ und ’res’ duerfen beim Aufruf identisch sein. 

*) 

VAR NewNode: tNode; (* neue Anweisung fuer ’prog’ *) 

BEGIN 

NewNode:= Type.NewI(Nodeld); 

OpAssign(a, NewNode“.opl); 

OpAssign(b, NewNode".op2); 

List.InsertBehind(prog, NewNode); 

Type.Dell(Opld, res); 

res:= Type.NewI(Opld); 

res".vOpType:= node; 

res".NodePos:= List.GetPos(prog) 

END OpAdd; 

PROCEDURE OpMult(prog: List.tList; a,b: tOp; VAR res: tOp); 

(* ... analog ’OpAdd’, jedoch Multiplikation *) 

VAR NewNode: tNode; (* neue Anweisung fuer ’prog’ *) 

BEGIN 

NewNode:= Type.NewI(Nodeld); 

NewNode".add:= FALSE; 

OpAssign(a, NewNode".opl); 

OpAssign(b, NewNode".op2); 

List.InsertBehind(prog, NewNode); 

Type.Dell(Opld, res); 

res:= Type.NewI(Opld); 

res".vOpType:= node; 

res".NodePos:= List.GetPos(prog) 

END OpMult; 

PROCEDURE OpGetDeg(prog: List.tList; op: tOp): LONGCARD; 

(* Funktionswert ist der Grad von ’op’. In ’prog’ muss das zuge- 
hoerige Programm uebergeben werden. *) 

VAR res: LONGCARD; 
cur: List.tPos; 
pred: tNode; 

BEGIN 

CASE op".vOpType OF 
constant: 
res:= 0 

I indeterminate: 

res:= 1 
I node: 

cur:= List.GetPos(prog); 

List.SetPos(prog, op".NodePos); 

pred:= List.Cur(prog); 

IF NOT pred".DegValid THEN 
Error("Det.OpGetDeg", 

"Grad von Vorgaengerknoten unbekannt") 


END; 
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res:= pred“.degree; 

List.SetPos(prog, cur) 

END; 

RETURN res 
END OpGetDeg; 

PROCEDURE NodeGetCur(prog: List.tList): tNode; FORWARD; 

PROCEDURE NodeGetRes(node: tNode): LONGREAL; FORWARD; 

PROCEDURE OpGetRes(prog: List.tList; op: tOp): LONGREAL; 

(* Funktionsergebnis ist der Wert des Operanden ’op’ aus dem 
Programm ’prog’. Falls der Operand ein Anweisungsknoten ist, 
muss dessen Ergebnis bereits bekannt sein. 

*) 

VAR res: LONGREAL; 

cur: List.tPos; 

BEGIN 

CASE op~.vOpType OF 
constant: 

res:= op'.ConstVal 
I indeterminate: 

res:= op'.IndetVal 
I node: 

cur:= List.GetPos(prog); 

List.SetPos(prog, op“.NodePos); 

res:= NodeGetRes(NodeGetCur(prog)); 

List.SetPos(prog, cur) 

END; 

RETURN res 
END OpGetRes; 

PROCEDURE OpGetNode(prog: List.tList; o: tOp): tNode; 

(* ’o’ muss ein Operand vom mit ’vOpType = node’ sein. Er muss 
weiterhin Operand eines Knotens von ’prog’ sein. Funktionswert 
ist der Knoten, auf den im Datensatz des Operanden verwiesen 
wird. 

*) 

VAR cur: List.tPos; 

res: tNode; 

BEGIN 

IF o“.vOpType # node THEN 

Error("Det.OpGetNode", "Operand ist kein Knoten") 

END; 

cur:= List.GetPos(prog); 

List.SetPos(prog, o~.NodePos); 
res:= NodeGetCur(prog); 

List.SetPos(prog, cur); 

RETURN res 
END OpGetNode; 

(* - *) 

(* Handhabung von Potenzreihen (Typ ’tSer’) *) 

PROCEDURE TypeNewSerl(VAR a: tSer); 

VAR point: tPOINTER; 

BEGIN 

point := Type .NewI (SerId) ; 
a:= tSer(point) 

END TypeNewSerl; 
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PROCEDURE TypeDelSerl(VAR a: tSer); 

VAR point: tPOINTER; 

BEGIN 

point:= tPOINTER(a); 

Type.Dell(Serld, point); 
a:= tSer(point) 

END TypeDelSerl; 

PROCEDURE SerAssign(a: tSer; VAR b: tSer); 

(* ... analog ’OpAssign’, jedoch fuer Typ ’tSer’ *) 

VAR i: LONGCARD; 

NewOp: tOp; 

BEGIN 

TypeDelSerl(b); 

TypeNewSerl(b); 

Frag. SetRange (b, 0, MaxDegO); 

NewOp:= NIL; 

FOR i:= 0 TO MaxDegO DO 

OpAssign(Frag.Getltem(a, i), NewOp); 

Frag.Setltem(b, i, NewOp); 

NewOp:= NIL 

END 

END SerAssign; 

PROCEDURE SerAdd(prog: List.tList; a,b: tSer; VAR res: tSer); 

(* An das Ende von ’prog’ wird ein Programmstueck angehaengt, das 
die Summe der Potenzreihen ’a’ und ’b’ berechnet. Die Summe 
wird in ’res’ zurueckgegeben. Die Zuweisung an ’res’ erfolgt 
wie bei ’SerAssign’. 

Es werden nur die homogenen Komponenten bis zum Grad 'MaxDegO ’ 
berechnet. 

’a’, ’b’ und ’res’ duerfen beim Aufruf identisch sein. 

*) 

VAR i: LONGCARD; 

NewOp: tOp; 

HilfRes: tSer; 

BEGIN 

TypeNewSerl(HilfRes); 

Frag. SetRange (Hilf Res, 0, MaxDegO); 

NewOp:= NIL; 

FOR i := 0 TO MaxDegO DO 

OpAdd(prog, Frag.GetItem(a,i), Frag.GetItem(b,i), NewOp); 
Frag.SetItem(HilfRes, i, NewOp); 

NewOp:= NIL 

END; 

TypeDelSerl(res); 
res:= HilfRes 
END SerAdd; 

PROCEDURE SerMult(prog: List.tList; a,b: tSer; VAR res: tSer); 

(* ... analog ’SerAdd’, jedoch Multiplikation *) 

VAR ResComp: LONGCARD; 

SumOp, MultOp: tOp; 
i: LONGCARD; 

HilfRes: tSer; 

BEGIN 

TypeNewSerl(HilfRes); 

Frag. SetRange (HilfRes, 0, MaxDegO); 

MultOp:= NIL; 

FOR ResComp:= 0 TO MaxDegO DO 
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SumOp:= Type.NewI(Opld); 

FÜR i:= 0 TO ResComp DO 
OpMult(prog, 

Frag.GetItem(a,i), Frag.GetItem(b, ResComp - i), MultOp 

); 

OpAdd(prog, SumOp, MultOp, SumOp) 

END; 

Frag.SetItem(HilfRes, ResComp, SumOp) 

END; 

Type.Dell(Opld, MultOp); 

TypeDelSerl(res); 
res:= HilfRes 
END SerMult; 

PROCEDURE SerSetConst(a: tSer; component: LONGCARD; val: LONGREAL); 

(* Die Komponente von ’a’ mit dem Grad ’component’ wird zu einer 
Konstanten mit dem Wert ’val’ gemacht. *) 

VAR op: tOp; 

BEGIN 

op:= Frag.GetItem(a, component); 
op“.vOpType:= constant; 
op“.ConstVal:= val 
END SerSetConst; 

PROCEDURE SerMultVal(prog: List.tList; a: tSer; val: LONGREAL; 

VAR res: tSer); 

(* An ’prog’ wird ein Programmstueck angehaengt, das alle Komponen¬ 
ten von ’a’, mit ’val’ multipliziert. Der konstante Term von ’a’ 
wird nur dann mit ’val’ multipliziert, wenn er ungleich Null ist. 

Das Ergebnis wird in ’res’ zurueckgegeben. Die Zuweisung an ’res’ 
erfolgt wie bei ’SerAssign’. 

*) 

VAR ConstOp, MultOp, aOp: tOp; 
r: tSer; 

i, Start: LONGCARD; 

BEGIN 

ConstOp:= Type.NewI(Opld); 

ConstOp“.ConstVal:= val; 

MultOp:= NIL; 

TypeNewSerl(r); 

aOp:= Frag.Getltem(a, 0); 

IF aOp“.vOpType = constant THEN 
IF aOp“.ConstVal #0.0 THEN 

OpMult(prog, aOp, ConstOp, MultOp); 

Frag.Setltem(r, 0, MultOp) 

END 

END; 

FOR i: = 1 TO MaxDegO DO 
MultOp:= NIL; 
aOp:= Frag.GetItem(a, i); 

OpMult(prog, aOp, ConstOp, MultOp); 

Frag.SetItem(r, i, MultOp) 

END; 

Type.Dell(Opld, ConstOp); 

TypeDelSerl(res); 
res:= r 

END SerMultVal; 

PROCEDURE Divide(prog: List.tList; a: tSer; VAR res: tSer); 

(* An das Ende von ’prog’ wird ein Programmstueck angehaengt, dass 
das multiplikative Inverse von ’a’ berechnet. Es wird in ’res’ 
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zurueckgegeben. Die Zuweisung an ’res’ erfolgt wie bei 
’SerAssign’. 

In der Prozedur wird davon ausgegangen, dass ’a’ die Form ’l-g’ 
besitzt, wobei ’g’ eine Potenzreihe mit Null als konstantem Term 
ist. 

Es werden nur die homogenen Komponenten bis zum Grad ’MaxDegO ’ 
beachtet. 

*) 

VAR power: tSer; 

(* Potenzen von: 

’ser’ mit konstantem Term Null und invertiertem 
Vorzeichen *) 
divisor: tSer; 

(* erste Potenz fuer ’Power’ *) 

HilfRes: tSer; 
i: LONGCARD; 

BEGIN 

divisor:= tSer(NIL); 

SerAssign(a, divisor); 

SerSetConst(divisor, 0, 0.0); 

SerMultVal(prog, divisor, -1.0, divisor); 

power:= tSer(NIL); 

SerAssign(divisor, power); 

TypeNewSerl(HilfRes); 

SerSetConst(HilfRes, 0, 1.0); 

SerAdd(prog, HilfRes, power, HilfRes); 

F0R i: = 2 T0 MaxDegO DO 

SerMult(prog, power, divisor, power); 

SerAdd(prog, HilfRes, power, HilfRes) 

END; 

TypeDelSerl(divisor); 

TypeDelSerl(power); 

TypeDelSerl(res); 
res:= HilfRes 
END Divide; 

(* - *) 

(* Handhabung der Programmatrix (Matrix der Zwischenergebnisse): *) 

PR0CEDURE InitProgMat(ProgMat: Mat.tMat; a: tMat); 

(* Die Programmatrix ’ProgMat’ wird anhand der Matrix ’a’, deren 
Determinante zu berechnen ist, initialisiert. 

Die Programmatrix gibt an, welche Zwischenergebnisse fuer 
Matrizenelemente durch das bisher erzeugte Programm bereits 
berechnet werden. Die Elemente der Programmatrix sind Potenzreihen 
(Typ ’tSer ’ ) . 

*) 

VAR WorkSer: tSer; 

0p: tOp; (* naechstes zu initialisierendes Element von 
’WorkSer’ *) 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
i,j: LONGCARD; (* Schleifenzaehler *) 

BEGIN 

n:= Rows(a); 

F0R i:= 1 T0 n DO 

F0R j:= 1 T0 n DO 

TypeNewSerl(WorkSer); 

Frag.SetRange(WorkSer, 0, n); 


0p:= Type.NewI(Opld); 
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Op“.ConstVal:= 1.0; 

Frag.SetItem(WorkSer, 0, Op); 

0p:= Type.NewI(Opld); 

Op“.vOpType:= indeterminate; 

Op“.IndetVal:= - Elem(a, i, j); 

Frag.SetItem(WorkSer, 1, Op); 

Mat.Set(ProgMat, i, j, tPOINTER(WorkSer)) 

END 

END 

END InitProgMat; 


(* - *) 

(* Algorithmusteil 'Anlegen des Berechnungsprogramms’ *) 
(* C’BuildProgram’ und zugehoerige Prozeduren) : *) 


PROCEDURE SubLine(prog: List.tList; ProgMat: Mat.tMat; ThisLine, 
SubFromLine: LONGCARD; divisor: tSer); 

(* In ’ProgMat’ wird ein Vielfaches von Zeile ’ThisLine’ so zu Zeile 
’SubFromLine’ addiert (’SubFromLine’ muss groesser sein als 
'ThisLine’), dass in Spalte 'ThisLine’ unterhalb der Hauptdiago¬ 
nalen Nullen entstehen. In ’divisor’ muss das inverse Element 
bzgl. der Multiplikation von ’ProgMat_{thisline, thisline}’ ueber- 
geben werden. 

*) 

VAR j, n: LONGCARD; 

accu: tSer; 

BEGIN 

n:= Mat.Rows(ProgMat); 
accu:= tSer(NIL); 

FOR j:= ThisLine TO n DO 

SerMult(prog, tSer(Mat.Elem(ProgMat, ThisLine, j)), 

tSer(Mat.Elem(ProgMat, SubFromLine, j)), accu); 
SerMult(prog, accu, divisor, accu); 

SerMultVal(prog, accu, -1.0, accu); 

Mat.Set(ProgMat, SubFromLine, j, tPOINTER(accu)); 
accu:= tSer(NIL) 

END 

END SubLine; 

PROCEDURE ZerosInColumn(prog: List.tList; ProgMat: Mat.tMat; 

column: LONGCARD); 

(* An das Ende von ’prog’ wird ein Programmstueck angehaengt, dass 
durch Subtraktion eines Vielfachen von Zeile ’column’ von allen 
folgenden Zeilen in ’ProgMat’ in Spalte ’column’ unterhalb der 
Hauptdiagonalen Nullen erzeugt. 

*) 

VAR divisor: tSer; 

(* inverses Element bzgl. der Multiplikation von 
’ProgMat_{column, column}-’ *) 
i: LONGCARD; 

BEGIN 

divisor:= tSer(NIL); 

Divide(prog, tSer(Mat.Elem(ProgMat, column, column)), divisor); 
FOR i:= column+1 TO Mat.Rows(ProgMat) DO 

SubLine(prog, ProgMat, column, i, divisor) 

END 

END ZerosInColumn; 

PROCEDURE MultMainDiag(prog: List.tList; ProgMat: Mat.tMat; 

VAR res: tSer); 

(* An ’prog’ wird ein Programmstueck angehaengt, das die Elemente 
der Hauptdiagonalen von ’ProgMat’ miteinander multipliziert. 
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Das Ergebnis wird in ’res’ zurueckgegeben. Die Zuweisung an ’res’ 
erfolgt wie bei ’SerAssign’. 

*) 

VAR prod: tSer; 

i, n: LONGCARD; 

BEGIN 

prod:= tSer(NIL); 

SerAssign(tSer(Mat.Elem(ProgMat, 1, 1)), prod); 

n:= Mat.Rows(ProgMat); 

FÜR i:= 2 TO n DO 

SerMult(prog, prod, tSer(Mat.Elem(ProgMat, i, i)), prod) 

END; 

TypeDelSerl(res); 
res:= prod 
END MultMainDiag; 

PROCEDURE AddComponents(prog: List.tList; s: tSer); 

(* An ’prog’ wird ein Programmstueck angehaengt, das die Summe 
der Komponenten von ’s’ berechnet. *) 

VAR sum: tOp; 

i: LONGCARD; 

BEGIN 

sum:= NIL; 

OpAssign(Frag.GetItem(s, 0), sum); 

FOR i:= 1 TO MaxDegO DO 

0pAdd(prog, Frag.GetItem(s, i), sum, sum) 

END; 

Type .DelKOpId, sum) 

END AddComponents; 

PROCEDURE BuildProgram(prog: List.tList; a: tMat); 

(* ’prog’ wird mit den Anweisungen zur Berechnung der Determinante 
von ’a’ gefuellt. ( 1. Anweisung am Listenanfang; letzte Anweisung 
( deren Ergebnis die Determinanten ist) am Listenende ) 

*) 

VAR ProgMat: Mat.tMat; (* Matrix der Zwischenergebnisse der 

Berechnungen in ’prog’ *) 

n, i: LONGCARD; 

det: tSer; (* Determinante von ’a’ als Potenzreihe *) 

BEGIN 

n:= Rows(a); 

Mat.Use(ProgMat, SerId); 

Mat.SetSize(ProgMat, n, n); 
det:= tSer(NIL); 

InitProgMat(ProgMat, a); 

FOR i:= 1 TO n-1 DO 

ZerosInColumn(prog, ProgMat, i) 

END; 

MultMainDiag(prog, ProgMat, det); 

AddComponents(prog, det); 

TypeDelSerl(det); 

Mat.DontUse(ProgMat) 

END BuildProgram; 

(*-*) 

(* Handhabung von Anweisungsknoten: *) 

(* CURrent *) 

PROCEDURE NodeGetCur(prog: List.tList): tNode; 

(* Funktionsergebnis ist der aktuelle Anweisungsknoten von ’prog’. *) 
BEGIN 
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RETURN tNode(List.Cur(prog)) 

END NodeGetCur; 

PROCEDURE NodeGetRes(node: tNode): LONGREAL; 

(* Funktionsergebnis ist das Berechnungsergebnis fuer den Programm- 
knoten ’node’. *) 

BEGIN 

IF NOT node“.ResValid THEN 
Error("Det.GetNodeRes", 

"Knotenergebnis wurde noch nicht berechnet") 

END; 

RETURN node“.res 
END NodeGetRes; 

PROCEDURE NodeExec(prog: List.tList; n: tNode); 

(* Fuer den Anweisungsknoten ’n’ aus dem Programm ’prog’ wird 
das Ergebnis berechnet. Evtl. zu berechnende Ergebnisse der 
Operanden von ’n’ muessen bereits bekannt sein. 

*) 

VAR opl, op2: LONGREAL; 

BEGIN 

opl:= OpGetRes(prog, n“.opl); 
op2:= OpGetRes(prog, n“.op2); 

IF n“ . add THEN 

n“.res:= opl + op2 

ELSE 

n“.res:= opl * op2 

END; 

n“.ResValid:= TRUE 
END NodeExec; 

PROCEDURE NodeGetDeg(n: tNode): LONGCARD; 

(* Funktionsergebnis ist der Grad des angegebenen Knotens. *) 

BEGIN 

RETURN n“.degree 
END NodeGetDeg; 

(* - *) 

(* Handhabung der Zwischenergebnisse der Form f(v;w): *) 

TYPE tFvwStore = Hash.tHash; (* Speicher fuer Zwischenergebnisse *) 
tFvw = POINTER TO tFvwRec; 

tFvwRec = RECORD (* ein Zwischenergebnis der Form f(v;w) 

( siehe Kapitel 'Parallele Berechnung von 
Termen’ ) *) 
v, w: tNode; 
val: LONGREAL 

END; 

VAR Fvwld: Type.Id; 

PROCEDURE EquFvwI(a,b: tPOINTER): BOOLEAN; 

(* Vergleichsfunktion fuer Modul 'Type' (Typ ’tFvw’) *) 

VAR A,B: tFvw; 

BEGIN 

A:= a; B:= b; 

RETURN (A“.v = B“.v) AND (A“.w = B“.w) 

END EquFvwI; 

PROCEDURE HashFvwI(a: tPOINTER; size: LONGCARD): LONGCARD; 

(* Hash-Funktion fuer Modul 'Type' (Typ 'tFvw') *) 

VAR A: tFvw; 

BEGIN 

A: = a; 

RETURN ( (LONGCARD(A“.v) MOD size) + (LONGCARD(A“.w) MOD size) ) 
MOD size 
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END HashFvwI; 

PROCEDURE FvwUse(VAR störe: tFvwStore); 

(* Bevor eine Variable vom Typ ’tFvwStore’ benutzt wird, ist fuer 
diese Variable ’FvwUse’ zur Initialisierung aufzurufen. 

*) 

BEGIN 

Hash.Use(störe, Fvwld, HashSize) 

END FvwUse; 

PROCEDURE FvwDontUse(VAR störe: tFvwStore); 

(* Wenn eine Variable vom Typ ’tFvwStore’ nicht mehr benutzt werden 
soll, muss ’FvwDontUse’ fuer diese Variable aufgerufen werden, 
damit der fuer die Variable angelegte Speicherplatz wieder frei¬ 
gegeben wird. 

*) 

BEGIN 

Hash.DontUse(störe) 

END FvwDontUse; 

PROCEDURE FvwEnter(störe: tFvwStore; v,w: tNode; val: LONGREAL); 

(* Fuer die Knoten ’v’ und ’w’ wird das Zwischenergebnis ’val’ in 
’störe’ eingetragen. 

*) 

VAR Fvwl: tFvw; 

BEGIN 

Fvwl:= Type.NewI(Fvwld); 

Fvwl“.v:= v; 

Fvwl“.w:= w; 

Fvwl“.val:= val; 

Hash.Insert(störe, Fvwl); 

END FvwEnter; 

PROCEDURE FvwGet(störe: tFvwStore; v,w: tNode): LONGREAL; 

(* Funktionsergebnis ist das in ’störe’ eingetragene Zwischenergebnis 
fuer die Knoten ’v’ und ’w’. Falls fuer die beiden Knoten keine 
Eintragung vorhanden ist, wird 0 zurueckgegeben. 

*) 

VAR Fvwl, Searchl: tFvw; 
found: BOOLEAN; 
res: LONGREAL; 

BEGIN 

IF v = w THEN RETURN 1.0 END; 

Searchl:= Type.NewI(Fvwld); 

Searchl“.v:= v; 

Searchl“.w:= w; 

IF Hash.Stored(store, Searchl, Fvwl) THEN 
res:= Fvwl“.val 

ELSE 

res:= 0.0 

END; 

Type.Dell(Fvwld, Searchl); 

RETURN res 
END FvwGet; 

PROCEDURE FvwGetOp(prog: List.tList; störe: tFvwStore; 

v: tNode; w: tOp) : LONGREAL; 

(* ... analog ’FvwGet’, jedoch muss ’w’ ein Operator sein *) 

VAR wNode: tNode; 

res: LONGREAL; 

BEGIN 

CASE w“.v0pType 0F 

indeterminate, constant: 
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res:= 0.0 
I node: 

wNode:= OpGetNode(prog, w); 
res:= FvwGet(störe, v, wNode) 

END; 

RETURN res 
END FvwGetOp; 


(*- *) 

(* Algorithmusteil ’Ausfuehrung des Berechnungsprogramms’ *) 
(* (’BuildProgram’ und zugehoerige Prozeduren) : *) 


TYPE tContext = RECORD (* Berechnungskontext fuer das auszufuehrende 

Programm *) 

AllDone: B00LEAN; 

(* TRUE: alle Berechnungen sind durchgefuehrt; 
der letzte Programmknoten enthaelt 
das Gesamtergebnis *) 

Fvw: tFvwStore; 

END; 

PROCEDURE ContextUse(VAR c: tContext); 

(* Bevor eine Variable vom Typ 'tContext’ benutzt wird, ist fuer 
diese Variable ’ContextUse’ zur Initialisierung aufzurufen. 

*) 

BEGIN 

c.AllDone:= FALSE; 

FvwUse(c.Fvw) 

END ContextUse; 

PROCEDURE ContextDontUse(VAR c: tContext); 

(* Wenn eine Variable vom Typ ’tContext’ nicht mehr benutzt werden 
soll, muss ’ContextDontUse’ fuer diese Variable aufgerufen werden, 
damit der fuer die Variable angelegte Speicherplatz wieder frei¬ 
gegeben wird. 

*) 

BEGIN 

FvwDontUse(c.Fvw); 

END ContextDontUse; 

PROCEDURE ComputeDegrees(prog: List.tList); 

(* Fuer alle Knoten in ’prog’ werden deren Grade berechnet und in 
den Datensaetzen der Knoten gespeichert. 

*) 

VAR node: tNode; 
hilf: tOp; 

degl, deg2: LONGCARD; 

BEGIN 

List.First(prog); 

WHILE List.MoreData(prog) DO 
node:= NodeGetCur(prog); 

degl:= OpGetDeg(prog, node“.opl); 
deg2:= OpGetDeg(prog, node“.op2); 

IF degl < deg2 THEN 
hilf:= node *.opl; 
node“.opl:= node“.op2; 
node“.op2:= hilf 

END; 

IF node“.add THEN 

node“.degree:= Func.MaxLCard(degl, deg2) 

ELSE 

node“.degree:= degl + deg2 

END; 

node“.DegValid:= TRUE; 
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List.Next(prog) 

END 

END ComputeDegrees; 

PROCEDURE DneRunCprog: List.tList); 

(* Um eine bessere Fehlersuche zu ermoeglichen wird in ’OneRun’ 
alternativ zum implementierten Algorithmus das in ’prog’ 
enthaltene Programm in einem einzigen Listendurchlauf 
interpretiert. 

*) 

VAR n: tNode; 

BEGIN 

Message("Det.(BGH.)0neRun", "Programmlaenge "); 

WriteCard(List.Count(prog), 0); WriteLn; 

List.First(prog); 

WHILE List.MoreData(prog) DO 

NodeExec(prog, NodeGetCur(prog)); 

List.Next(prog) 

END; 

Message("Det.(BGH.)0neRun", "Programmergebnis "); 

WriteReal(NodeGetRes(NodeGetCur(prog)), 15, 6); WriteLn; 

List.First(prog); 

WHILE List.MoreData(prog) DO 
n:= NodeGetCur(prog); 
n~.ResValid:= FALSE; 
n~.res:= 0.0; 

List.Next(prog) 

END; 

END OneRun; 

PROCEDURE GetVa(prog, Va: List.tList; a: LONGCARD); 

(* In ’Va’ wird die Liste aller Elemente der Menge ’V_a’ fuer das 
Programm ’prog’ zurueckgegeben. 

(siehe Kapitel 'Parallele Berechnung von Termen’) 

*) 

VAR cur: List.tPos; 

n: tNode; 

BEGIN 

cur:= List.GetPos(prog); 

List.Empty(Va); 

List.First(prog); 

WHILE List.MoreData(prog) DO 
n:= NodeGetCur(prog); 

IF NOT n~.add THEN 

IF (NodeGetDeg(n) > a) 

AND (OpGetDeg(prog, n~.opl) <= a) THEN 

List.InsertBehind(Va, List.Cur(prog)) 

END; 

END; 

List.Next(prog) 

END; 

List.SetPos(prog, cur); 

END GetVa; 

PROCEDURE GetVal(prog, Val: List.tList; a: LONGCARD); 

(* In 'Val' wird die Liste aller Elemente der Menge V’_a fuer das 
Programm ’prog’ zurueckgegeben. 

(siehe Kapitel 'Parallele Berechnung von Termen’) 

*) 

VAR cur: List.tPos; 
n: tNode; 



148 


A.3 Implementierungsmodul ’Det‘ 


BEGIN 

cur:= List.GetPos(prog); 

List.Empty(Val); 

List.First(prog); 

WHILE List.MoreData(prog) DO 
n:= NodeGetCur(prog); 

IF iT.add THEN 

IF (NodeGetDeg(n) > a) 

AND (OpGetDeg(prog, n~.op2) <= a) THEN 

List.InsertBehind(Val, List.Cur(prog)) 

END; 

END; 

List.Next(prog) 

END; 

List.SetPos(prog, cur); 

END GetVal; 

PROCEDURE ComputeFw(prog: List.tList; FvwStore: tFvwStore; 

Va, Val: List.tList); 

(* Es wird mit Hilfe der Knotenlisten ’Va’ und ’Val’ sowie der 
Zwischenergebnisse ’FvwStore’ das Ergebnis des aktuellen 
Knotens von ’prog’ berechnet und im Datensatz des Knotens 
in ’prog’ gespeichert. 

*) 

VAR cur: List.tPos; 
w: tNode; 

(* aktuelles Element von ’prog’ *) 
res: LONGREAL; (* f(w) *) 
ful, fu2, fuw: LONGREAL; 

(* zur Berechnung von ’res’ benutzte Ergebnisse vorangegangener 
Rechnungen *) 
u: tNode; 

(* aktuelles Element von ’Va’ bzw. ’Val’ *) 

AddList: Reli.tReli; 

BEGIN 

Reli.Use(AddList); 
cur:= List.GetPos(prog); 
w:= NodeGetCur(prog); 

Pram.Parallelstart("Det.ComputeFw"); 

List.First(Va); 

WHILE List.MoreData(Va) DO 
u:= NodeGetCur(Va); 

fuw:= FvwGet(FvwStore, u, w); 
ful:= OpGetRes(prog, u~.opl); 
fu2:= OpGetRes(prog, u~.op2); 

Reli.InsertBehind(AddList, ful * fu2 * fuw); 

Pram.Prozessoren(l); 

Pram.Schritte(2); 

Pram.NaechsterBlock("Det.ComputeFw"); 

List.Next(Va) 

END; 

List.First(Val); 

WHILE List.MoreData(Val) DO 
u:= NodeGetCur(Val); 

fuw:= FvwGet(FvwStore, u, w); 
fu2:= OpGetRes(prog, u~.op2); 

Reli.InsertBehind(AddList, fu2 * fuw ); 
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Pram.Prozessoren(l); 

Pram.Schritte (1); 

Pram. NaechsterBlockC'Det. ComputeFw") ; 

List.Next(Val) 

END; 

Pram.ParallelEnde("Det.ComputeFw"); 
res:= Pram.AddList(AddList); 

(* Alle Summanden werden nach der Binaerbaummethode addiert. 

Der Aufwand dafuer wird in ’Pram.AddList’ gezaehlt. *) 

List.SetPos(prog, cur); 
w~.res:= res; 
w~.ResValid:= TRUE; 

List.DontUse(AddList); 

END ComputeFw; 

PROCEDURE GetV(vList, prog: List.tList; from, to: LONGCARD); 

(* Fuer den aktuellen Knoten ’w’ von ’prog’ werden alle potentiellen 
Knoten ’v’ aus ’prog’ herausgesucht, so dass der Grad von f(v;w) 
mindestens ’from’ und hoechstens ’to’ betraegt. In ’vList’ wird eine 
Liste dieser Knoten zurueckgegeben. 

Es wird nicht geprueft, ob fuer einen bestimmten Knoten ’v’ der Wert 
von ’f(v;w)’ ungleich Null ist. 

*) 

VAR cur: List.tPos; 
w: tNode; 

(* aktueller Knoten von ’prog’ beim Prozeduraufruf *) 
v: tNode; 
deg: LONGCARD; 

(* Grad von f(v;w) *) 

BEGIN 

cur:= List.GetPos(prog); 
w:= NodeGetCur(prog); 
v:= NIL; 

List.Empty(vList); 

List.First(prog); 

REPEAT 

v:= NodeGetCur(prog); 

deg:= NodeGetDeg(w) - NodeGetDeg(v); 

IF (from <= deg) AND (deg <= to) THEN 

List.InsertBehind(vList, List.Cur(prog)) 

END; 

List.Next(prog); 

UNTIL NOT List.MoreData(prog) OR (v = w); 

List.SetPos(prog, cur); 

END GetV; 

PROCEDURE ComputeFvw(vList, prog: List.tList; FvwStore: tFvwStore; 
from: LONGCARD); 

(* Der aktuelle Knoten von ’prog’ werde mit ’w’ bezeichnet. Fuer 
alle Knoten ’v’ in ’vList’ werden die Zwischenergebnisse der 
Form f(v;w) (siehe Kapitel 'Parallele Berechnung von Termen’) 
berechnet und in ’FvwStore’ abgelegt. Alle bereits vorher berech¬ 
neten Ergebnisse muessen in ’FvwStore’ abgelegt sein. In ’from’ 
muss der Grad uebergeben werden, den die ’f(v;w)’ mindestens haben 
muessen. (Der maximale Grad wird automatisch bestimmt.) 

*) 

VAR cur: List.tPos; 
a: LONGCARD; 

Va, Val: List.tList; 
w: tNode; 

(* aktueller Knoten von ’prog’ beim Prozeduraufruf *) 
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v,u: tNode; 

res: LONGREAL; (* f(v;w) *) 
fu2, fvul, fuw, fvu2: LONGREAL; 

(* Zwischenergebnisse zur Berechnung von ’res’ *) 
AddList: Reli.tReli; 

BEGIN 

Reli.Use(AddList); 
cur:= List.GetPos(prog); 

List.Use(Va, Nodeld); List.AddRef(Va); 

List.Use(Val, Nodeld); List.AddRef(Val); 
w:= NodeGetCur(prog); 

List.First(vList); 

WHILE List.MoreData(vList) DO 
List.Empty(AddList); 
v:= NodeGetCur(vList); 
a:= NodeGetDeg(v) + from; 

GetVa(prog, Va, a); 

GetVal(prog, Val, a); 

Pram.Parallelstart("Det.ComputeFvw"); 

List.First(Va); 

WHILE List.MoreData(Va) DO 
u:= NodeGetCur(Va); 

fuw:= FvwGet(FvwStore, u, w); 

fvul:= FvwGetOp(prog, FvwStore, v, u'.opl); 

IF (fuw #0.0) AND (fvul #0.0) THEN 
fu2:= 0pGetRes(prog, u~.op2); 

Reli.InsertBehind(AddList, fu2 * fvul * fuw); 

Pram.Prozessoren(l); 

Pram.Schritte(2); 

Pram.NaechsterBlock("Det.ComputeFvw") 

END; 

List.Next(Va) 

END; 

List.First(Val); 

WHILE List.MoreData(Val) DO 
u:= NodeGetCur(Val); 

fvu2:= FvwGet0p(prog, FvwStore, v, u~.op2); 
fuw:= FvwGet(FvwStore, u, w); 
res:= res + (fvu2 * fuw); 

Pram.Prozessoren(l); 

Pram.Schritte(1); 

Pram.NaechsterBlockC'Det .ComputeFvw") ; 

List.Next(Val) 

END; 

Pram.ParallelEnde("Det.ComputeFvw"); 

res:= Pram.AddList(AddList); 

FvwEnter(FvwStore, v, w, res); 

List.Next(vList) 

END; 

List.DontUse(Va); 

List.DontUse(Val); 

List.SetPos(prog, cur); 

END ComputeFvw; 

PROCEDURE PerformStage(prog: List.tList; stage: L0NGCARD; 
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VAR context: tContext); 

(* Fuer das Program ’prog’ wird Berechnungsstufe ’stage’ mit dem 
Berechnungskontext ’context’ durchgefuehrt. *) 

VAR DegFrom, (* kleinster / ... *) 

DegTo (* ... groesster Grad der f(w) und f(v;w), die in Stufe 
’stage’ zu berechnen sind *) 

:LONGCARD; 
deg: LONGCARD; 

(* Grad des aktuellen Knotens *) 
vList: List.tList; 

(* Liste aller v fuer aktuellen Knoten w zur Berechnung von 
f(v;w) *) 
a: LONGCARD; 

(* Knotengrad fuer die Listen V_a und V’_a *) 

Va: List.tList; 

(* Liste der Knoten V_a *) 

Val: List.tList; 

(* Liste der Knoten V’_a *) 

BEGIN 

context.AllDone:= TRUE; 

List.Use(vList, Nodeld); List.AddRef(vList); 

List.Use(Va, Nodeld); List.AddRef(Va); 

List.Use(Val, Nodeld); List.AddRef(Val); 

IF stage = 0 THEN 
DegFrom:= 1; 

DegTo:= 1 

ELSE 

DegFrom:= LReal2LCard( 

power( 2.0, LCard2LReal(stage - 1) ) 

) + 1; 

DegTo:= LReal2LCard( power( 2.0, LCard2LReal(stage) ) ) 

END; 

a:= DegFrom; 

GetVa(prog, Va, a) ; 

GetVal(prog, Val, a) ; 

Pram.Parallelstart("Det.PerformStage") ; 

List.First(prog); 

WHILE List.MoreData(prog) DO 

deg:= NodeGetDeg(NodeGetCur(prog)); 

IF (DegFrom <= deg) AND (deg <= DegTo) THEN 
context.AllDone:= FALSE; 

ComputeFw(prog, context.Fvw, Va, Val); 

Pram.NaechsterBlock("Det.PerformStage") 

END 

END; 

Pram.ParallelEnde("Det.PerformStage"); 

Pram.Parallelstart("Det.PerformStage:2"); 

List.First(prog); 

WHILE List.MoreData(prog) DO 

GetV(vList, prog, DegFrom, DegTo); 

IF List.Count(vList) > 0 THEN 
context.AllDone:= FALSE; 

ComputeFvw(vList, prog, context.Fvw, DegFrom); 

Pram.NaechsterBlock("Det.PerformStage:2"); 

END; 

List.Next(prog); 

END; 

Pram.ParallelEnde("Det.PerformStage:2"); 

List.DontUse(vList); 

List.DontUse(Va); 
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List.DontUse(Val) 

END PerformStage; 

PROCEDURE AllDone(VAR context: tContext): BOOLEAN; 

(* Falls der Berechnungskontext ’context’ angibt, dass alle Berech¬ 
nungen fuer das zugrunde liegende Programm durchgefuehrt sind, 
ist das Funktionsergebnis TRUE. *) 

BEGIN 

RETURN context.AllDone 
END AllDone; 

PROCEDURE ExecProgram(prog: List.tList): LONGREAL; 

(* Das in ’prog’ enthaltene Programm wird ausgefuehrt. Das Ergebnis 
der letzten Anweisung des Programms wird als Funktionswert zurueck- 
gegeben. 

*) 

VAR stage: LONGCARD; 

context: tContext; 

BEGIN 

ContextUse(context); 

ComputeDegrees(prog); 

IF BGHDebug THEN 
OneRun(prog) 

END; 

stage:= 0; 

REPEAT 

PerformStage(prog, stage, context); 

INC(stage) 

UNTIL AllDone(context); 

IF BGHDebug THEN 

Message("Det.(BGH.)ExecProgram", 

"Anzahl der Berechnungsstufen "); 

WriteCard(stage, 0); WriteLn 

END; 

ContextDontUse(context); 

List.Last(prog); 

RETURN NodeGetRes(NodeGetCur(prog)) 

END ExecProgram; 

(* - *) 

(* exportierte Prozedur zum Aufruf des Algorithmus: *) 

PROCEDURE BGH(a: tMat): LONGREAL; 

VAR aCopy: Rema.tMat; (* Arbeitskopie von ’a’ *) 
det: LONGREAL; (* Determinate von ’a’ *) 
m2: LONGREAL; 

(* Faktor zur Berechung der Determinante der Ursprungs¬ 
matrix ’a’ aus der Determinante einer konvertieren 
Repraesentation von ’a’ *) 
prog: List.tList; 

(* Programm (im Sinne des Kapitels 'Parallele Berechnung 
von Termen) zur Berechnung der Determinate von ’a’ *) 

BEGIN 

CheckSquare(a,"Det.BGH"); 

IF Rows(a) = 1 THEN 
RETURN Eiern(a,1,1) 

END; 

vMaxDeg:= Rows(a); 

List.Use(prog, Nodeld); 
aCopy:= Rema.Copy(a); 
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ConvertMat(aCopy, m2) ; 

BuildProgram(prog, aCopy); 
det:= ExecProgram(prog) * m2; 

List.DontUse(prog); 

Rema.DontUse(aCopy); 

RETURN det 
END BGH; 

(***** Algorithmus von Berkowitz: *****) 

PROCEDURE EpsilonMult(VAR res: List.tList; Start, MultMat: tMat; 

OneStep, maximum: LONGINT; RightMult: BOOLEAN); 

(* Die Matrix ’Start’ wird so oft mit der Matrix ’MultMat’ 

multipliziert, wie ’maximum’ angibt. Sowohl das Endergebnis 
als auch alle Zwischenergebnisse und ’Start’ selbst werden 
in der Liste ’res’ zurueckgegeben. 

Bei ’RightMult = TRUE’ wird ’Start’ von rechts mit ’MultMat’ 
multipliziert, sonst von links. 

’res’ wird in ’EplilonMult’ angelegt. ’OneStep’ muss angeben, 
wieviele Potenzen von ’MultMat’ in einem Schleifendurchlauf 
berechnet werden sollen. 

*) 

VAR 

Y: Mali.tMali; (* Liste der Potenzen von ’MultMat’ *) 

X: Mali.tMali; (* Liste neuer Elemente fuer Z *) 

Z: Mali.tMali; (* potentielles Ergebnis fuer ’res’ *) 
ToBePowered: tMat; 

(* Potenz von ’MultMat’, die ihrerseits im naechsten 
Schleifendurchlauf so oft potenziert wird, wie 
’OneStep’ angibt *) 
i: LONGCARD; (* Schleifenzaehler *) 
hilf: LONGCARD; 

BEGIN 

IF OneStep < 1 THEN OneStep:= 1 END; 

Mali.Use(Y); 

Mali.Use(X); 

Mali.Use(Z); 

Mali.InsertBehind( Z, Rema.Copy(start) ); 

ToBePowered:= Rema.Copy(MultMat); 

WHILE List.Count(Z) < (LONGCARD(maximum + 1)) DO 
(* berechne Vektor ’Y’: *) 

MultLadnerFischer(Y, ToBePowered, OneStep); 

(* Der Aufwand wird in 'MultLadnerFischer’ gezaehlt. *) 

(* Die letzte Potenz wird fuer den naechsten Durchlauf 
aufgehoben: *) 

List.Last(Y); 

ToBePowered:= Mali.OutCur(Y); 

(* berechne Vektor ’X’ aus ’Z’ und ’Y’: *) 

List.First(Y); 

Pram.Parallelstart("Det.EpsilonMult"); 

REPEAT 

List.First (Z); 

Pram.Parallelstart("Det.EpsilonMult:2"); 

REPEAT 

IF RightMult THEN 

Mali.InsertBehind(X, 

Rema.CreateMult( 
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Mali.Cur(Z), Mali.Cur(Y) 

) 

) 

ELSE 

Mali.InsertBehind(X, 

Rema.CreateMult( 

Mali.Cur(Y), Mali.Cur(Z) 

) 

) 

END; 

C* Der Aufwand wird in ’Rema.CreateMult’ gezaehlt. *) 

List.Next(Z); 

Pram.NaechsterBlock("Det.EpsilonMult:2"); 

UNTIL NOT List.MoreData(Z); 

Pram.ParallelEnde("Det.EpsilonMult:2"); 

List.Next(Y); 

Pram.NaechsterBlock("Det.EpsilonMult"); 

UNTIL NOT List.MoreData(Y); 

Pram.ParallelEnde("Det.EpsilonMult"); 

List.Empty(Y); 

(* haenge ’X’ an ’Z’: *) 

List.Last(Z); 

List.First(X); 

REPEAT 

Mali.InsertBehind(Z, Mali.OutCur(X)) 

UNTIL (List.Count(X) = 0) 0R (List.Count(Z) = LONGCARD(maximum + 1)) 

END; 

List.DontUse(Y); 

List.DontUse(X); 
res:= Z 

END EpsilonMult; 

PROCEDURE GetM(a: tMat; i: LONGCARD): tMat; 

(* Funktionsergebnis ist ’M_i’ *) 

VAR M: tMat; (* Funktionsergebnis *) 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
r, c: LONGCARD; (* Schleifenzaehler *) 

BEGIN 

n:= Rows(a); 

IF i >= n THEN 

Error("Det.GetM", "M_i existiert nicht (i zu gross)") 

END; 

n:= Rows(a); 

Rema.Use(M, LCard2Card(n-i), LCard2Card(n-i)); 

FOR r:= i+1 TO n DO 

FOR c:= i+1 TO n DO 

Rema.Set(M, LCard2Card(r-i), LCard2Card(c-i), 

Rema.Elem(a, LCard2Card(r), LCard2Card(c))) 

END 

END; 

RETURN M 
END GetM; 

PROCEDURE GetR(a: tMat; i: LONGCARD): tMat; 

(* Funktionsergebnis ist ’R_i’ *) 

VAR R: tMat; (* Funktionsergebnis *) 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
count: LONGCARD; (* Schleifenzaehler *) 

BEGIN 

n:= Rows(a); 

IF i >= n THEN 
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Error("Det.GetR", "R_i existiert nicht (i zu gross)") 

END; 

n:= Rows(a); 

Rema.Use(R, 1, n-i); 

FÜR count:= i+1 TO n DO 

Rema.Set(R, 1, count - i, 

Rema.Elem(a, i, count)) 

END; 

RETURN R 
END GetR; 

PROCEDURE ComputeU(VAR U: Mali.tMali; i: LONGCARD; a: tMat); 

(* In ’a’ muss die Matrix uebergeben werden, deren Determinante 
zu berechnen ist. 

Die Prozedur berechnet den Vektor ’U_i’ und gibt ihn 
in ’U’ zurueck. 

’U’ wird in ’ComputeU’ angelegt. 

*) 

VAR n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
m: LONGCARD; 

(* hoechster Exponent von ’M’ im zu berechnenden 
Vektor ’T’ *) 

mRoot: LONGCARD; (* \lceil m~{0.5} \rceil *) 
mRootMl: LONGCARD; 

mEpsilon: LONGCARD; (* \lceil m~{epsilon}- \rceil *) 

M, R: Rema.tMat; (* ’M_i’ und ’R_i’ *) 

BEGIN 

n:= Rema.Rows(a); 

IF n-i-1 >= 0 THEN 
m:= n - i - 1 

ELSE 

m: = 0 

END; 

mRoot:= LCard2Card( Func.Ceil(power(real(m), 0.5)) ); 
mEpsilon:= LCard2Card( 

Func.Ceil(power( real(m), BerkEpsilon )) 

); 

M:= GetM(a, i); 

R:= GetR(a, i); 

IF mRoot > 0 THEN 

mRootMl:= mRoot - 1 

ELSE 

mRootMl:= 0 

END; 

EpsilonMult(U, R, M, mEpsilon, mRootMl, TRUE); 

Rema.DontUse(M); 

Rema.DontUse(R) 

END ComputeU; 

PROCEDURE ComputeMPower(a: tMat; i: LONGCARD): tMat; 

(* Das Funktionsergebnis ist die Startpotenz von ’M_i’ fuer 
die Prozedur ’ComputeV’. *) 

VAR mat, res: Rema.tMat; 
count: LONGCARD; 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
m: LONGCARD; 

(* hoechster Exponent von ’M’ im zu berechnenden 
Vektor ’T’ *) 

mRoot: LONGCARD; (* \lceil m~{0.5} \rceil *) 

MatList: Mali.tMali; 

BEGIN 

n:= Rows(a); 

IF n-i-1 >= 0 THEN 
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m:= n-i-1 

ELSE 

m:= 0 

END; 

IF m > 0 THEN 

Mali.Use(MatList); 
mat:= GetM(a, i); 

mRoot:= LCard2Card( Func.Ceil(power( real(m), 0.5)) ); 

FOR count:= 1 TO mRoot DO 

Mali.InsertBehind(MatList, Rema.Copy(mat)) 

END; 

MultMatList(res, MatList, FALSE); 

(* Der Aufwand wird in 'MultMatList’ gezaehlt. *) 

Rema.DontUse(mat); 

List.DontUse(MatList) 

ELSE 

Rema.Use(res, n, n); 

Rema.Unit(res) 

END; 

RETURN res 
END ComputeMPower; 

PROCEDURE GetS(a: tMat; i: LONGCARD): tMat; 

(* Funktionsergebnis ist ’S_i’ *) 

VAR S: tMat; (* Funktionsergebnis *) 

n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
count: LONGCARD; (* Schleifenzaehler *) 

BEGIN 

n:= Rows(a); 

IF i >= n THEN 

Error("Det.GetS", "S_i existiert nicht (i zu gross)") 

END; 

n:= Rows(a); 

Rema.Use(S, n-i, 1); 

FOR count:= i+1 TO n DO 

Rema.Set(S, count-i, 1, Rema.Elem(a, count, i)) 

END; 

RETURN S 
END GetS; 

PROCEDURE ComputeV(VAR V: Mali.tMali; i: LONGCARD; 

a: tMat; Start: tMat); 

(* In ’a’ muss die Matrix uebergeben werden, deren Determinante 
zu berechnen ist. 

Die Prozedur berechnet den Vektor ’V_i’ und gibt ihn 
in ’V’ zurueck. ’V’ wird in ’ComputeV’ angelegt. 

In ’Start’ muss die Startpotenz der Matrix ’M_i’ ueber¬ 
geben werden. 

*) 

VAR n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
m: LONGCARD; 

(* hoechster Exponent von ’M’ im zu berechnenden 
Vektor ’T’ *) 

mRoot: LONGCARD; (* \lceil m~{0.5} \rceil *) 
mEpsilon: LONGCARD; (* \lceil m~{epsilon} \rceil *) 

S: tMat; (* ’S_i’ *) 

BEGIN 

n:= Rows(a); 

IF n-i-1 >= 0 THEN 
m:= n - i - 1 

ELSE 

m:= 0 


END; 
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mRoot:= LCard2Card( Func.Ceil(power( real(m), 0.5)) ); 
mEpsilon:= LCard2Card( 

Func.Ceil(power( real(m), BerkEpsilon )) 

); 

S:= GetS(a, i); 

EpsilonMult(V, S, Start, mEpsilon, mRoot, FALSE); 

Rema.DontUse(S) 

END ComputeV; 

PROCEDURE ComputeNextTElem(U,V: Mali.tMali): LONGREAL; 

(* Funktionsergebnis ist das durch die internen Zeiger von ’U’ und 
’V’ bestimmte naechste Element des Vektors ’T’. Die Inhalte von 
’U’ und ’V’ werden nicht veraendert. 

*) 

VAR u, v: tMat; 

(* aktuell in Bearbeitung befindliche Elemente aus 
’U’ und ’V’ *) 
i: LONGCARD; 

(* Schleifenzaehler *) 
length: LONGCARD; 

(* Anzahl der Elemente (bzw. Spalten) von ’u’ *) 
res: LONGREAL; 

(* Funktionsergebnis *) 

AddList: Reli.tReli; 

BEGIN 

Reli.Use(AddList); 
u:= Mali.Cur(U); 
v:= Mali.Cur(V); 

List.Next (U) ; 

IF NOT List.MoreData(U) THEN 
List.First(U); 

List.Next(V); 

IF NOT List.MoreData(V) THEN 

Error("Det.ComputeNextTElem", 

"Vektor V enthaelt zu wenig Elemente") 

END 

END; 

length:= Columns(u); 

FOR i:= 1 TO length DO 

Reli.InsertBehind(AddList, Elem(u,l,i) * Elem(v,i,l)) 

END; 

(* Die Schleifendurchlaeufe werden parallel durchgefuehrt: *) 
Pram.Prozessoren(length); 

Pram.Schritte(1); 

res:= Pram.AddList(AddList); 

(* Der weitere Aufwand wird in ’Pram.AddList’ gezaehlt. *) 

List.DontUse(AddList); 

RETURN res 

END ComputeNextTElem; 

PROCEDURE ComputeT(VAR T: Reli.tReli; i: LONGCARD; a: tMat); 

(* Fuer die Matrix ’a’ wird der Vektor T_i berechnet und als 
Liste von LONGREAL-Zahlen in ’T’ zurueckgegeben. ’T’ wird in 
’ComputeT’ angelegt und initialisiert. 

*) 

VAR 

U, V: Mali.tMali; 

(* Die Vektoren ’U’, und ’V’ werden als Listen 
von Matrizen implementiert. *) 
n: LONGCARD; 
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(* Anzahl der Zeilen und Spalten von ’a’ *) 
k: LONGCARD; (* Schleifenzaehler *) 
mPower: tMat; 

BEGIN 

n:= Rows(a); 

Reli.Use(T); 

IF n-i > 0 THEN (* n-i: Anzahl der Elemente von T *) 

(* Es ist nur etwas zu tun, wenn T nicht leer sein soll: *) 

(* berechne Vektor ’U’: *) 

Pram.Parallelstart("Det.ComputeT"); 

ComputeU(U, i, a); 

Pram.NaechsterBlock("Det.ComputeT"); 

mPower:= ComputeMPower(a, i); 

Pram.ParallelEnde("Det.ComputeT"); 

(* berechne Vektor ’V’: *) 

ComputeV(V, i, a, mPower); 

Rema.DontUse(mPower); 

(* berechne Vektor ’T’ aus ’U’ und ’V’: *) 

List.First(U); List.First(V); 

Pram.Parallelstart("Det.ComputeT:FÜR"); 

FÜR k:= 1 TO n-i DO 

Reli.InsertBehind(T, ComputeNextTElem(U, V) ); 

Pram.NaechsterBlock("Det.ComputeT:F0R") 

END; 

Pram. ParallelEndeC'Det. ComputeT :F0R") ; 

List.DontUse(U); 

List.DontUse(V) 

END 

END ComputeT; 

PROCEDURE CreateC(VAR C: tMat; a: tMat; 

index: LONGCARD; T: Reli.tReli); 

(* Als ’C’ wird die Matrix C_{indexl zurueckgegeben. Sie wird 
aus ’T’ und ’a’ zusammengestellt. In ’a’ muss die zugrunde¬ 
liegende Matrix, deren Determinante zu berechnen ist, 
uebergeben werden und in ’T’ der zu C_{index} gehoerige 
Vektor T_{index} (implementiert als Liste von LONGREAL-Zahlen). 
’T’ wird in ’CreateC’ deinitalisiert. 

Bei ’index = Rows(a)’ wird kein Vektor ’T’ benoetigt. In 
diesem Fall muss ’NIL’ als ’T’ uebergeben werden. *) 

VAR n: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 
i: LONGCARD; (* Schleifenzaehler *) 

BEGIN 

n:= Rows(a); 

Rema.Use(C, n-index+2, n-index+1); 

Set(C, 1, 1, -1.0); 

Set(C, 2, 1, Eiern(a, index, index) ); 

IF index < n THEN 
List.First(T); 

FOR i:= 3 TO Rows(C) DO 

IF NOT List.MoreData(T) THEN 
Error("Det.CreateC", 

"Vektor T enthaelt zu wenig Elemente"); 

END; 

Set(C, i, 1, Reli.OutCur(T) ) 

END; 

SetToeplitz(C); 

List.DontUse(T) 


ELSE 
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IF T # List.tList(NIL) THEN 
Error("Det.CreateC", 

"Programmfehler: nicht benoetigter Vektor T uebergeben"); 

END 

END 

END CreateC; 

PROCEDURE Berkowitz(a: tMat): LONGREAL; 

VAR t, (* Zaehler der Matrizen T *) 
c: (* Zaehler der Matrizen C *) 

LONGCARD; 

size: LONGCARD; (* Anzahl der Zeilen und Spalten von ’a’ *) 

Tlist: List.tList; (* Liste der Vektoren T *) 

Clist: Mali.tMali; (* Liste der Matrizen C *) 

(* ’Tlist’ und 'Clist’ werden zur besseren Uebersichtlichkeit 
getrennt verwaltet. *) 

WorkMat: tMat; (* Arbeitsmatrix *) 

WorkList: List.tList; (* Arbeitsliste *) 
det: LONGREAL; (* Determinante von ’a’ *) 

BEGIN 

CheckSquare(a,"Det.Berkowitz"); 

IF Rows(a) = 1 THEN 

RETURN Eiern(a, 1, 1) 

END; 

size:= Rows(a); 

List.UseC Tlist, Listld ); 

Mali.UseC Clist ); 

Pram.Parallelstart("Det.Berkowitz"); 

FOR t:= 1 TO size-1 DO 

ComputeT( WorkList, t, a ); 

List.InsertBehindC Tlist, tPOINTER(WorkList) ); 

Pram. NaechsterBlockC'Det .Berkowitz") 

END; 

Pram.ParallelEnde("Det.Berkowitz"); 

(* Baue anhand der Vektoren T die Matrizen C auf 

( Da nur Zuweisungen durchgefuehrt werden, wird dafuer 
kein Aufwand fuer eine PRAM in Rechnung gestellt. ): 

*) 

List.First(Tlist); 

FOR c:= 1 TO size DO 

IF (c < size) AND NOT List.MoreData(Tlist) THEN 
Error("Det.Berkowitz", 

"Es wurden nicht alle Vektoren T berechnet."); 

END; 

IF List.MoreData(Tlist) THEN 

CreateC( WorkMat, a, c, Reli.tReli(List.OutCur(Tlist)) ) 

ELSE 

CreateC( WorkMat, a, c, Reli.tReli(NIL) ) 

END; 

Mali.InsertBehind( Clist, WorkMat ) 

END; 

MultMatList(WorkMat, Clist, TRUE); 

IF BerkDebug THEN 

WriteStringO 1 *** Det.Berkowitz: Ergebnisvektor:"); WriteLn; 
Rema.Writ e(WorkMat) 

END; 

det:= Eiern(WorkMat, size + 1, 1); 

Rema.DontUse(WorkMat); 

List.DontUse(Clist); 

List.DontUse(Tlist); 
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RETURN det 
END Berkowitz; 

(***** Algorithmus von Pan: ***+*) 

PROCEDURE GetKrylovVector(n: LONGCARD): tMat; 

(* Als Funktionswert wird der fuer den Algorithmus gewaehlte Krylov-Vektor 
zurueckgegeben. In ’n’ muss die gewuenschte Laenge des Vektors 
angegeben werden. 

*) 

VAR i: LONGCARD; 

z: tMat; 

BEGIN 

Rema.Use(z, n, 1); 

FÜR i:= 1 TO n DO 

Set(z, i, 1, 1.0) 

END; 

RETURN z 

END GetKrylovVector; 

PROCEDURE BuildMatrixFromVectors(1: Mali.tMali; VAR v: tMat); 

(* In ’l’ muss eine Liste gleichgrosser Matrizen ’bzw.’ Vektoren 

uebergeben werden. Sie werden zu einer einzigen Matrix zusammenge¬ 
fasst und in ’v’ zurueckgegeben. 

Die Vektoren in ’l’ werden spaltenweise nebeneinander angeordnet. 

*) 

VAR r, c: LONGCARD; (* Zeilen bzw. Spalten von ’v’ *) 
i, j: LONGCARD; 

BEGIN 

List.First (1); 

r:= Rows( Mali.Cur(1) ); 

c:= List.Count(1) * Columns(Mali.Cur(1)) ; 

Rema.Use(v, r, c); 

FOR j:= 1 TO c DO 

FOR i:= 1 TO r DO 

Set(v, i, j, Elem(Mali.Cur(1), i, 1) ) 

END; 

List.Next(1) 

END 

END BuildMatrixFromVectors; 

PROCEDURE ComputeKrylovMatrix(a: tMat; VAR kry, vec: tMat); 

(* In ’kry’ wird die Krylov-Matrix zu ’a’ zurueckgegeben und in 
’vec’ der zugehoerige ’n+l’-te iterierte Vektor. *) 

VAR old, new: Mali.tMali; (* Listen iterierter Vektoren *) 
power: tMat; (* aktuelle Potenz von ’a’ *) 
n: LONGCARD; 

(* Anzahl der Zeilen und Spalten von ’a’ *) 

BEGIN 

n:= Rows(a); 

Mali.Use(old); Mali.Use(new); 

Rema.Use(power, n, n); 

Rema.Assign(a, power); 

Mali.InsertBehind(old, GetKrylovVector(n)); 

WHILE List.Count(old) < n+1 DO 
List.First(old); 

Pram.Parallelstart("Det.ComputeKrylovMatrix"); 

REPEAT 

Mali.InsertBehind(new, Rema.CreateMult(power, Mali.Cur (old))); 
List.Next(old); 

Pram.NaechsterBlock("Det.ComputeKrylovMatrix") 
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UNTIL NOT List.MoreData(old); 

Pram. ParallelEn.de ("Det. ComputeKrylovMatrix") ; 

Rema.Mult(power, power, power); 

List.Last(old); 

List.First(new); 

WHILE List.MoreData(new) DO 

Mali.InsertBehind(old, Mali.OutCur(new)) 

END 

END; 

List.Last(old); 

WHILE List.Count(old) > n+1 DO 
List.DelCur(old) 

END; 

vec:= Mali.OutCur(old); 

BuildMatrixFromVectors(old, kry); 

Rema.DontUse(power); 

List.DontUse(old); List.DontUse(new) 

END ComputeKrylovMatrix; 

PROCEDURE Transpose(a: tMat; VAR b: tMat); 

VAR r,c: LONGCARD; 

BEGIN 

Rema.Use(b, Columns(a), Rows(a)); 

FOR r:= 1 TO Rows(a) DO 

FOR c:= 1 TO Columns(a) DO 

Set(b, c, r, Elem(a, r, c)) 

END 

END 

END Transpose; 

PROCEDURE ColSumün: tMat; c: LONGCARD): LONGREAL; 

VAR k: LONGCARD; 

res: LONGREAL; 

BEGIN 

res:= 0.0; 

FOR k:= 1 TO Rows(m) DO 

res:= res + ABS( Elem(m, k, c) ) 

END; 

RETURN res 
END ColSum; 

PROCEDURE Norml(m: tMat): LONGREAL; 

VAR max: LONGREAL; 

k: LONGCARD; 

BEGIN 

max:= ColSum(m, 1); 

FOR k:= 2 TO Columns(m) DO 

max:= Func.MaxReal( max, ColSum(m, k) ) 

END; 

RETURN max 
END Norml; 

PROCEDURE GetApproximatedInv(mat: tMat; VAR Aproxlnv: tMat); 
VAR t: LONGREAL; 

mult: tMat; 

BEGIN 

Transpose(mat, Aproxlnv); 

mult:= Rema.CreateMult(mat, Aproxlnv); 

t:= 1.0 / Norml(mult); 

Rema.DontUse(mult); 

Rema.ScalMult(t, Aproxlnv, Aproxlnv) 

END GetApproximatedlnv; 
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PROCEDURE Invertlterative(mat: tMat; VAR inv: tMat); 

(* In ’inv’ wird die iterativ berechnete Inverse von ’mat’ zurueck- 
gegeben. ’inv’ wird in ’Invertlterative’ neu angelegt. *) 

VAR Aproxlnv: tMat; 

k,loops: LONGCARD; 
unit: tMat; 
bWork: tMat; 

BEGIN 

GetApproximatedInv(mat, Aproxlnv); 

loops:= Func.Ceil( ld( LCard2LReal(Rows(mat)) ) ); 

Rema.Use(unit, Rows(mat), Columns(mat)); 

Rema.ScalMult(2.0, unit, unit); 

Rema.Use(bWork, Rows(mat), Columns(mat)); 

FÜR k:= 1 TO loops DO 

Rema.Mult(Aproxlnv, mat, bWork); 

Rema.Sub(unit, bWork, bWork); 

Rema.Mult(bWork, Aproxlnv, Aproxlnv); 

END; 

Rema.DontUse(bWork); 

Rema.DontUse(unit); 

inv:= Aproxlnv 
END Invertlterative; 

PROCEDURE RoundReal(r: LONGREAL): LONGREAL; 

BEGIN 

IF r >= 0.0 THEN 

RETURN LInt2LReal(Func.Floor(r + 0.5)) 

ELSE 

RETURN LInt2LReal(Func.Ceil(r - 0.5)) 

END 

END RoundReal; 

PROCEDURE RoundElements(a: tMat); 

VAR r,c: LONGCARD; 

BEGIN 

F0R r:= 1 T0 Rows(a) DO 

F0R c:= 1 TG Columns(a) DO 

Set(a, r, c, RoundReal(Eiern(a, r, c))) 

END 

END 

END RoundElements; 

PROCEDURE Pan(a: tMat): LONGREAL; 

VAR kry: tMat; (* Krylov-Matrix zu ’a’ *) 

vec: tMat; (* ’n+l’-ter iterierter Vektor zu ’a’ *) 
inv: tMat; (* Inverse zu ’kry’ *) 

koeff: tMat; (* Vektor der Koeffizienten des charakteristischen 
Polynoms von ’a’ *) 

n: LONGCARD; 
det: LONGREAL; 

BEGIN 

CheckSquare(a, "Det.Pan"); 

IF Rows(a) = 1 THEN 

RETURN Eiern(a, 1, 1) 

END; 

n:= Rows(a); 
kry:= tMat(NIL); 
vec:= tMat(NIL); 
inv:= tMat(NIL); 
koeff:= tMat(NIL); 
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ComputeKrylovMatrix(a, kry, vec); 

InvertIterative(kry, inv); 
koeff:= Rema.CreateMult(vec, inv); 
RoundElements(koeff); 
det:= Elem(koeff, n, 1); 

Rema.DontUse(koeff); 

Rema.DontUse(inv); 

Rema.DontUse(vec); 

Rema.DontUse(kry); 

RETURN det 
END Pan; 

BEGIN 

Matld:= Type.GetId("Rema.tMat"); 

ListId:= Type.GetId("List.tList"); 

NodeId:= Type.New(TSIZE(tNodeRec)); 

Type.SetNewProc(Nodeld, NewNodel); 

Type.SetDelProc(Nodeld, DelNodel); 

0pld:= Type.New(TSIZE(tOpRec)); 

Type.SetNewProc(Opld, NewQpI); 

SerId:= Type.Copy(Type.GetId("Frag.tFrag")); 
Type.SetNewProc(Serld, NewSerl); 

Type.SetDelProc(Serld, DelSerl); 

Fvwld:= Type.New(TSIZE(tFvwRec)); 

Type.SetEquProc(FvwId, EquFvwI); 

Type.SetHashProc(Fvwld, HashFvwI) 

END Det. 


A.4 Definitionsmodul ’Pram‘ 


DEFINITION MODULE Pram; 

(* Laufzeitmessung in PRAM-Schritten und PRAM-Prozessoren 

Dieses Modul erlaubt es, durch Aufruf von Zaehlprozeduren 
festzustellen, wieviele Schritte und Prozessoren eine PRAM 
(Parallel Random Access Machine) zur Abarbeitung des 
jeweiligen Algorithmus benoetigt. 

*) 

IMPORT List, Cali, Reli; 

FROM Reli IMPORT tReli; 

CONST MaxBlockName = 32; 

(* Maximale Laenge, die eine an ’ParallelStart’, ’NaechsterBlock’ 
oder ’ParallelEnde’ uebergebene Zeichenkette haben darf *) 

PROCEDURE Start(); 

(* Die internen Zaehler werden fuer eine neue Messung 
initialisiert. *) 

PROCEDURE EndeO; 

(* Es wird ’SchrittEnde’ aufgerufen und anschlieend werden 
die Staende des Schritt- und des Prozessorzaehlers 
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ausgewertet. *) 

PROCEDURE Schritte(wert: LONGCARD); 

(* Der Prozessorzaehler wird ausgewertet und auf Null gesetzt. 

Der Schrittzaehler wird um den angegebenen Wert inkremen- 
tiert. *) 

PROCEDURE Prozessoren(wert: LONGCARD); 

(* Der Prozessorzaehler fuer den laufenden Schritt wird um den 
angegebenen Wert inkrementiert. 

Falls z. B. ein Schritt mit einem Prozessor gezaehlt werden 
soll ist 

Pram.Prozessoren(l); 

Pram.Schritte(l); 

aufzurufen. Die umgekehrte Reihenfolge ergibt einen 
Schritt mit 0 Prozessoren! 

*) 

PROCEDURE Parallelstart(Blockname: ARRAY OF CHAR); 

(* Dieser Prozeduraufruf markiert den Anfang einer Kette von 

Anweisungsblocks, die zueinander parallel durchgefuehrt werden. 

Sie werden durch 'NaechsterBlock'-Aufrufe voneinander getrennt. 

Die Kette der Anweisungsblocks wird durch ’ParallelEnde’ beendet. 

Die ’Parallelstart’ParallelEnde’ Aufrufe koennen geschachtelt werden. 

’Blockname’ dient zur Pruefung der korrekten Blockschachtelung. 

An alle zusammgehoerigen ’ParallelStart - NaechsterBlock - ParallelEnde’ 
Aufrufe muessen die gleichen Zeichenketten an ’Blockname’ uebergeben 
werden. Die Konstante ’MaxBlockName’ gibt die maximal erlaubte Laenge 
fuer die an ’Blockname’ uebergebene Zeichenkette an. 

*) 

PROCEDURE NaechsterBlock(Blockname: ARRAY OF CHAR); 

(* siehe ’ParallelStart’ *) 

PROCEDURE ParallelEnde(Blockname: ARRAY OF CHAR); 

(* siehe ’ParallelStart’ *) 

PROCEDURE GezaehlteSchritte(): LONGCARD; 

(* Der Funktionswert ist nach einem ’Start’-Aufruf und vor einem 
'Ende’-Aufruf der aktuelle Wert des Schrittzaehlers. 

Nach einem 'Ende’-Aufruf und vor dem naechsten ’Start’-Aufruf 
ist der Funktionswert die Anzahl der Schritte im vorangegangenen 
’Start’-'Ende’-Block. *) 

PROCEDURE GezaehlteProzessorenO : LONGCARD; 

(* analog 'GezaehlteSchritte’, jedoch fuer den Prozessorenzaehler *) 
PROCEDURE AddList(1: tReli): LONGREAL; 

(* Die Elemente in ’l’ werden nach der Binaerbaummethode addiert. 

Das Ergebnis wird zurueckgegeben. Der Aufwand wird durch Aufruf 
der Zaehlprozeduren protokolliert. 

*) 

END Pram. 


A.5 Implementierungsmodul ’Pram‘ 
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IMPLEMENTATIQN MODULE Pram; 

(* Erklaerungen im Definitionsmodul *) 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteLn, WriteString, WriteCard; 
IMPORT Sys, Func, Str, Type, List, Cali, Reli; 

FROM Sys IMPORT tPOINTER; 

FROM Func IMPORT Message, Error; 

TYPE tBlockname = ARRAY [1..MaxBlockName] OF CHAR; 
pBlockname = POINTER TO tBlockname; 


VAR 

stack: Cali.tCali; 

(* Stapel von Zaehlerwerten fuer ParallelStart- 
ParallelEnde-Bloecke; es werden immer Paare von 
Prozessoranzahl und Schrittanzahl gespeichert; 
zweimal 0 gibt ein Blockende an *) 
names: List.tList; 

(* Stapel der Blocknamen zur Pruefung korrekter 
Schachtelung *) 

Nameld: Type.Id; 

(* Typnummer fuer 'tBlockname’ *) 

Steps : LONGCARD; (* Schrittzaehler der Pram *) 
pro : LONGCARD; (* Prozessorenzaehler der Pram *) 

MaxPro : LONGCARD; (* Maximale Anzahl bisher in einem Schritt 
beschaeftigter Prozessoren *) 

running: BOOLEAN; (* TRUE: 'Start' wurde aufgerufen, jedoch 

'Ende' noch nicht *) 

PROCEDURE PushCvalue: LONGCARD); 

(* schiebt ’value’ auf den Stapel 'stack' *) 

BEGIN 

List.First(stack); 

Cali.InsertBefore(stack,value) 

END Push; 

PROCEDURE Pop():LONGCARD; 

(* liest oberstes Stapelelement von 'stack' *) 

BEGIN 

IF List.Count(stack) = 0 THEN 
WriteLn; 

WriteStringO 1 *** Pram.Pop:"); WriteLn; 

WriteStringO 1 *** Zaehlstapel ist leer"); WriteLn; 

HALT 

END; 

List.First(stack); 

RETURN Cali.OutCur(stack) 

END Pop; 

PROCEDURE Start(); 

BEGIN 

Steps:= 0; 
pro:= 0; 

MaxPro:= 0; 
running:= TRUE; 

List.Empty(stack) 

END Start; 

PROCEDURE EndeO; 

VAR block: pBlockname; 

BEGIN 

running:= FALSE; 

IF List.Count(names) # 0 THEN 
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WriteLn; 

WriteStringO'*** Pram.Ende:"); WriteLn; 

WriteStringO'*** Blockschachtelung fehlerhaft"); WriteLn; 
WriteStringC'Blockstapel: ") ; WriteLn; 

WriteString("###B0TT0M###"); WriteLn; 

List.Last(names); 

WHILE List.MoreData(names) DO 

block:= pBlockname(List.Cur(names)); 

WriteString(block~); WriteLn; 

List.Prev(names) 

END; 

HALT 

END; 

IF List.Count(stack) > 0 THEN 

Message("Pram.Ende", "Der Zaehlstapel ist nicht leer."); 
WriteStringC'*** Groesse des Zaehlstapels: "); 

WriteCard( List.Count(stack), 0); 

WriteLn; 

HALT 

END 

END Ende; 

PROCEDURE Schritte(wert: LONGCARD); 

BEGIN 

IF pro = 0 THEN 

Error("Pram.Schritte","Schritte ohne Prozessoren ?") 

END; 

IF wert= 0 THEN 

Error("Pram.Schritte","0 Schritte zaehlen ?") 

END; 

IF pro > MaxPro THEN 
MaxPro := pro 

END; 

pro:= 0; 

Steps:= Steps + wert 
END Schritte; 

PROCEDURE Prozessoren(wert: LONGCARD); 

BEGIN 

IF wert = 0 THEN 

Error("Pram.Prozessoren","0 Prozessoren zaehlen ?") 

END; 

pro:= pro + wert 
END Prozessoren; 

PROCEDURE NamePush(l: List.tList; name: ARRAY 0F CHAR); 

VAR item: pBlockname; 

BEGIN 

item:= pBlockname( Type.NewI(Nameld) ); 

Str.Assign(item~, name); 

List.First (1); 

List.InsertBefore(1, tPOINTER(item)) 

END NamePush; 

PROCEDURE NameCheck(l: List.tList; name: ARRAY OF CHAR); 

VAR item: pBlockname; 

BEGIN 

IF List.Count(1) = 0 THEN 

Error("Pram.NameCheck", "Es existiert kein offener Block."); 

END; 

List.First (1); 

item:= pBlockname( List.Cur(1) ); 

IF NOT Str.Equal(item“, name) THEN 

Message("Pram.NameCheck:", "Die Blockschachtelung ist fehlerhaft."); 
WriteStringO'Erwarteter Block: "); 
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WriteString(name); WriteLn; 
WriteStringC'Gefundener Block: "); 
WriteString(item~); WriteLn; 

HALT 

END 

END NameCheck; 

PROCEDURE NamePop(1: List.tList); 

BEGIN 

List.First(1); 

List.DelCur(1) 

END NamePop; 

PROCEDURE ParallelStart(Blockname: ARRAY OF CHAR); 

BEGIN 

NamePush(names, Blockname); 

(* speichere bisher erzielte Ergebnisse: *) 
Push(MaxPro); 

Push(steps); 

(* markiere Blockanfang: *) 

Push(O); 

Push(O); 

MaxPro:= 0; 

Steps:= 0; 
pro:= 0; 

END ParallelStart; 

PROCEDURE NaechsterBlock(Blockname: ARRAY OF CHAR); 

BEGIN 

NameCheck(names, Blockname); 

IF pro # 0 THEN 
WriteLn; 

WriteStringO 1 *** Pram.NaechsterBlock: ") ; WriteLn; 
WriteStringO 1 *** Prozessoren ohne Schritte ?"); 
WriteLn; 

HALT 

END; 

IF (MaxPro # 0) OR (steps # 0) THEN 
Push(MaxPro); 

Push(steps) 

END; 

MaxPro:= 0; 
steps:= 0 

END NaechsterBlock; 

PROCEDURE ParallelEnde(Blockname: ARRAY OF CHAR); 

VAR 

CurSteps, CurPro: LONGCARD; 

(* gerade vom Stapel gelesene Zaehlerstaende *) 
ParSt, ParPro: LONGCARD; 

(* maximale vom Stapel gelesene Zaehlerstaende *) 

BEGIN 

(* laufenden Block nicht vergessen auszuwerten: *) 

IF (steps # 0) OR (MaxPro # 0) THEN 
NaechsterBlock(Blockname) 

END; 

(* Blockschachtelung pruefen: *) 

NameCheck(names, Blockname); 

NamePop(names); 


(* initialisiere: *) 
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ParSt:= 0; ParPro:= 0; 

(* werte parallel ausgefuehrte Blocks aus: *) 
CurSteps:= PopO; 

CurPro:= PopO; 

WHILE (CurSteps # 0) AND (CurPro # 0) DO 
IF CurSteps > ParSt THEN 
ParSt:= CurSteps 

END; 

ParPro:= ParPro + CurPro; 

CurSteps := PopO; 

CurPro := PopO 

END; 

(* verknuepfe Ergebnis der parallelen Blocks mit 
zuvor erzielten Ergebnissen: *) 

CurSteps := PopO; 

CurPro := PopO; 

Steps:= CurSteps + ParSt; 

IF CurPro > ParPro THEN 
MaxPro:= CurPro 
ELSE 

MaxPro:= ParPro 

END 

END ParallelEnde; 

PROCEDURE GezaehlteSchritte(): LONGCARD; 

BEGIN 

RETURN Steps 
END GezaehlteSchritte; 

PROCEDURE GezaehlteProzessorenO : LONGCARD; 

BEGIN 

IF running THEN 
RETURN pro 

ELSE 

RETURN MaxPro 

END 

END GezaehlteProzessoren; 

PROCEDURE AddList(1: Reli.tReli): LONGREAL; 

VAR a, b, res: LONGREAL; 

li: ARRAY [1..2] 0F Reli.tReli; 
from, to: CARDINAL; 

BEGIN 

li[1]:= 1; 

Reli.Use(li [2]); 
from:= 2; to:= 1; 

WHILE List.Count(li[to]> > 1 DO 
to:= 3 - to; from:= 3 - from; 

List.First( li[from] ); 

Parallelstart("Pram.AddList"); 

REPEAT 

a:= Reli.0utCur( li [from] ); 
b:= Reli.0utCur( li [from] ); 

Reli.InsertBehindC li[to], a+b); 
Prozessoren(l); 

Schritte(l); 

NaechsterBlock("Pram.AddList"); 

UNTIL List.Count(li[from]) < 2; 

ParallelEnde("Pram.AddList"); 

IF List.Count(li [from]) = 1 THEN 
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List .First (li [from] ) ; 

Reli.InsertBehind(li[to], Reli.OutCur(li[from])) 

END; 

END; 

IF List.Count(li[to]) >= 1 THEN 
List. First (li [to] ) ; 
res:= Reli.OutCur(li [to]); 

ELSE 

res:= 0.0 

END; 

List .DontUseQi [2] ) ; 

RETURN res 
END AddList; 

BEGIN 

Cali.Use(stack); 

Steps:= 0; 

MaxPro:= 0; 

NameId:= Type.New(TSIZE(tBlockname)); 

List.Use(names, Nameld) 

END Pram. 


A.6 Programmodul ’algtest 4 


MODULE algtest; 

(* Test der Algorithmen fuer 3*3—Matrizen 

In diesem Testprogramm wird keine R"ucksicht auf Anforderungen an 
die Implementierung genommen. Insbesondere wird die Parallelisierung 
nicht beachtet. 

*) 

FROM InOut IMPORT ReadString, WriteString, WriteLn, ReadLReal, WriteReal, 
ReadCard, WriteCard; 

IMPORT Files, NumberlO, Text; 

FROM MathLibO IMPORT log, power; 

CONST n= CARDINAL(3); 

(* Anzahl der Zeilen und Spalten, die die Testmatrix hat *) 
nMax= n+1; 

(* Anzahl der Zeilen und Spalten, die eine Matrix maximal 
haben kann *) 
myfile= "algtest.inf"; 

(* Datei, in der die Testmatrix gespeichert wird 

(damit sie nicht staendig neu eingegeben werden muss) *) 

BerkDebug= FALSE; 

(* TRUE: Algorithmus von ’Berkowitz’ liefert Testausgaben *) 

(* Konstanten fuer den Alg. von Borodin, von zur Gathen *) 

(* und Hopcroft: *) 

SerMax = n; 

(* maximaler Grad der homogenen Komponenten, die fuer die 
Potenzreihen betrachtet werden *) 
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cBGHNoDebug= 3; 

(* Debug-Ebene, fuer die der Alg. keine Testausgaben 
liefert *) 
cBGHDebug= 3; 

(* cBGHDebug < cBGHNoDebug: 

Alg. liefert Testausgaben *) 

BGHRadius= 1.0; 

(* angenommener Konvergenzradius der Potenzreihen; 
theoretisch ist hier nur der Wert 1.0 richtig *) 

(* Konstanten fuer den Alg. von Pan: *) 

PanDebug= TRUE; 

(* TRUE: Alg. liefert Testausgaben *) 

PanLoops= 15; 

(* Anzahl der Iterationen zur Verbesserung der 
Naeherungsinversen *) 

TYPE tMat = RECORD (* Matrix aus Fliesskommazahlen *) 
r, c: CARDINAL; (* Rows, Columns *) 

v: ARRAY [1..nMax], [1..nMax] 0F LONGREAL; (* Values *) 

END; 

tSer = ARRAY [O..SerMax] 0F LONGREAL; (* eine Potenzreihe *) 
tSerMat = RECORD (* Matrix aus Potenzreihen *) 

r, c: CARDINAL; (* Rows, Columns *) 
v: ARRAY [1..nMax],[1..nMax] 0F tSer 

END; 

VAR a: tMat; (* Matrix, deren Determinante zu Berechnen ist *) 

eingabe: CARDINAL; (* Befehl des Benutzers an das Programm *) 

BGHDebug: CARDINAL; 

(* BGHDebug < cBGHNoDebug: 

Algorithmus von ’Borodin, von zur Gathen und 
Hopcroft’ liefert Testausgaben; je kleiner 
BGHDebug, umso mehr Testausgaben werden geliefert 

*) 

(* zur Fehlersuche: *) 

PROCEDURE Wait; 

(* Die Prozedur wartet auf das Betraetigen der RETURN-Taste *) 

VAR dumrny: ARRAY [1..3] 0F CHAR; 

BEGIN 

ReadString(dumrny); 

END Wait; 

PROCEDURE l(line: ARRAY 0F CHAR); 

(* Prozedur zur vereinfachten Schreibweise *) 

BEGIN 

WriteString(line); WriteLn 
END 1; 

PROCEDURE Hilfe; 

(* Es wird eine Liste der Eingabemoeglichkeiten (Befehle an das Programm) 
ausgegeben. *) 

BEGIN 

1("*** Hilfe ***"); 

1("0: Ende"); 

1("1: Hilfe"); 

1("2: Matrix eingeben"); 

1("3: Matrix ausgeben"); 

1("4: Alg. v. Csanky"); 

1("5: Alg. v. Borodin, von zur Gathen und Hopcroft"); 

1("6: Alg. v. Berkowitz"); 
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1("7: Alg. v. Pan"); 

1("8: Trivialmethode") 

END Hilfe; 

PROCEDURE WriteFile(a: tMat); 

(* Die Matrix ’a’ wird in der durch die Konstante ’myfile’ angegebenen 
Datei abgelegt. *) 

VAR f: Files.File; 

i,j: CARDINAL; 

BEGIN 

Files.Create(f, myfile, Files.writeSeqTxt, Files.replaceOld); 

FQR i:= 1 TO n DO 

FÜR j:= 1 TO n DO 

NumberlO.WriteReal(f, a.v[i,j],20,10); Text.WriteLn(f) 

END 

END; 

Files.Close (f); 

END WriteFile; 

PROCEDURE Exist(name: ARRAY OF CHAR): BOOLEAN; 

(* Falls die Datei mit dem Namen ’name’ existiert, wird TRUE zurueck- 
gegeben, sonst FALSE. *) 

VAR f: Files.File; 

IsPresent: BOOLEAN; 

BEGIN 

Files.Open(f, name, Files.readSeqTxt); 

IsPresent:= Files.State(f) >= 0; 

IF IsPresent THEN 
Files.Close(f) 

END; 

RETURN IsPresent 
END Exist; 

PROCEDURE ReadFile(VAR a: tMat); 

(* Die Matrix, die in der Datei abgelegt ist, die die Konstante ’myfile’ 
angibt, wird eingelesen und in ’a’ zurueckgegeben. *) 

VAR f: Files.File; 
i,j: CARDINAL; 
dummy: BOOLEAN; 

BEGIN 

a.r:= n; a.c:= n; 

IF Exist(myfile) THEN 

Files.Open(f, myfile, Files.readSeqTxt); 

FOR i:= 1 TO n DO 

FOR j:= 1 TO n DO 

NumberlO.ReadLReal(f, a.v[i,j], dummy) 

END 

END; 

Files.Close(f) 

ELSE 

FOR i:= 1 TO n DO 

FOR j:= 1 TO n DO 
a.v[i,j]:= 0.0 

END 

END 

END 

END ReadFile; 

PROCEDURE ReadMat(VAR a: tMat); 

(* Es wird zeilenweise eine Matrix vom Benutzer eingelesen und in ’a’ 
zurueckgegeben. *) 

VAR i,j: CARDINAL; 

BEGIN 
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FOR i:= 1 TO n DO 

WriteStringC'Zeile "); WriteCard(i,0) ; WriteStringC:"); WriteLn; 
FOR j:= 1 TG n DO 

ReadLReal(a.v[i,j] ) 

END; 

WriteLn 

END; 

WriteFile(a) 

END ReadMat; 

PROCEDURE WriteMat(a: tMat); 

(* Die Matrix ’a’ wird auf den Bildschirm ausgegeben. *) 

VAR i,j: CARDINAL; 

BEGIN 

FOR i:= 1 TO a.r DO 

FOR j:= 1 TO a.c DO 

WriteReal(a.v[i, j] ,20,10) ; WriteStringC ") 

END; 

WriteLn 

END 

END WriteMat; 

PROCEDURE Check(prop: BOOLEAN); 

(* Bei ’prop = FALSE’ wird das Programm abgebrochen. *) 

BEGIN 

IF NOT prop THEN 
HALT 

END 

END Check; 

PROCEDURE Trace(a: tMat): LONGREAL; 

(* Es wird die Spur der Matrix ’a’ berechnet und als Funktionswert zurueck- 
gegeben. *) 

VAR erg: LONGREAL; 

i: CARDINAL; 

BEGIN 

FOR i:= 1 TO a.r DO 

erg:= erg + a.v[i,i] 

END; 

RETURN erg 
END Trace; 

PROCEDURE MatClear(VAR a: tMat; r, c: CARDINAL); 

(* Die Matrix ’a’ wird initialisiert (mit Nullen gefuellt). Als neue Anzahl 
der Zeilen wird 'r 1 festgesetzt. Als neue Anzahl der Spalten wird ’c’ 
festgesetzt. *) 

VAR i,j: CARDINAL; 

BEGIN 

a.r:= r; a.c:= c; 

FOR i:= 1 TO nMax DO 

FOR j:= 1 TO nMax DO 

a. v[i,j]:= 0.0 

END 

END 

END MatClear; 

PROCEDURE MatAssign(a: tMat; VAR b: tMat); 

(* In Matrix ’b’ wird der Inhalt von Matrix ’a’ zurueckgegeben. *) 

VAR i,j: CARDINAL; 

BEGIN 

FOR i:= 1 TO nMax DO 

FOR j:= 1 TO nMax DO 

b. v[i, j] := a.v[i , j] 
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END 

END; 

b.r:= a.r; 

b. c : = a.c; 

END MatAssign; 

PROCEDURE MatAdd(a,b: tMat; VAR c: tMat); 

(* In Matrix ’c’ wird die Summe der Matrizen ’a’ und ’b’ zurueckgegeben. *) 
VAR i,j: CARDINAL; 

BEGIN 

Check( (a.r = b.r) AND (a.c = b.c) ); 

FQR i:= 1 TD a.r DO 

FÜR j:= 1 TO a.c DO 

c . v[i, j] := a. v[i, j] + b.v[i, j] 

END 

END; 

c. r:= a.r; c.c:= a.c 
END MatAdd; 

PROCEDURE MatSub(a,b: tMat; VAR c: tMat); 

(* In ’c’ wird die Differenz der Matrizen ’a’ und ’b’ zurueckgegeben. 

(a - b) *) 

VAR i,j: CARDINAL; 

BEGIN 

Check( (a.r = b.r) AND (a.c = b.c) ); 

FOR i:= 1 TO n DO 

FOR j:= 1 TO n DO 

c.v[i,j] := a.v[i,j] - b.v[i,j] 

END 

END; 

c.r:= a.r; c.c:= a.c 
END MatSub; 

PROCEDURE MatUnit(VAR a: tMat; r, c: CARDINAL); 

(* In ’a’ wird eine Matrix mit ’r’ Zeilen und ’c’ Spalten zurueckgegeben, 
die in der Hauptdiagonalen Einsen und sonst nur Nullen enthaelt. *) 

VAR i,j: CARDINAL; 

BEGIN 

a.r:= r; a.c:= c; 

FOR i:= 1 TO nMax DO 

FOR j:= 1 TO nMax DO 
IF i=j THEN 

a.v[i,j]:= 1.0 

ELSE 

a.v[i,j]:= 0.0 

END 

END 

END 

END MatUnit; 

PROCEDURE MatMult(a,b: tMat; VAR c: tMat); 

(* In ’c’ wird das Produkt der Matrizen ’a’ und ’b’ zurueckgegeben. *) 

VAR i,j,k: CARDINAL; 

BEGIN 

Check( a.c = b.r ); 

FOR i:= 1 TO a.r DO 

FOR j:= 1 TO b.c DO 
c.v[i,j]:= 0.0; 

FOR k:= 1 TO a.c DO 

c . v [i , j] : = c . v [i , j] + a.v[i,k] * b.v[k,j] 

END 

END 

END; 

c.r:= a.r; c.c:= b.c 
END MatMult; 
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PROCEDURE MatXMult(a: tMat; x: LONGREAL; VAR c: tMat); 

(* In ’c’ wird das Produkt der Matrix ’a’ mit der Zahl ’x’ 
zurueckgegeben. *) 

VAR i,j: CARDINAL; 

BEGIN 

FÜR i:= 1 TO a.r DO 

FOR j:= 1 TO a.c DO 

c.v [i , j] := a.v[i , j] * x 

END 

END; 

c.r:= a.r; c.c:= a.c 
END MatXMult; 

PROCEDURE Csanky(a: tMat): LONGREAL; 

(* Als Funktionswert wird die Determiante der Matrix ’a’ berechnet nach 
dem Algorithmus von Csanky (Frame) zurueckgegeben. *) 

VAR bO: tMat; 

z: CARDINAL; 
aSubUnit, unit: tMat; 

BEGIN 

MatUnit(bO,n,n); 

FOR z:= n-1 TO 1 BY -1 DO 
MatAssign(a, aSubUnit); 

MatUnit(unit,n,n); 

MatXMult(unit, 1.0/LFL0AT(z), unit); 

MatXMult(unit, Trace(a), unit); 

MatSub(aSubUnit, unit, aSubUnit); 

MatMult(bO, aSubUnit, bO) 

END; 

MatMult(a, bO, bO); 

RETURN Trace(bO) / LFLOAT(n) 

END Csanky; 

PROCEDURE SerClear(VAR a: tSer); 

(* Die Potenzreihe ’a’ wird geloescht. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
a[k] : = 0.0 

END 

END SerClear; 

PROCEDURE SerWrite(a: tSer); 

(* Die Potenzreihe ’a’ wird auf den Bildschirm ausgegeben. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 

WriteCard(k,4) ; WriteStringC : "); 

WriteReal(a[k],20,10); 

IF k MOD 3 = 0 THEN 
WriteLn 

END 

END; 

END SerWrite; 

PROCEDURE SerMatWrite(VAR a: tSerMat); 

(* Die Potenzreihenmatrix ’a’ wird interaktiv auf den Bildschirm ausgegeben. 
Der Benutzer kann die Position der Potenzreihe in der Matrix bestimmen, 
die ausgegeben werden soll. Bei einer Eingabe von 0 wird die Prozedur 
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verlassen. *) 

VAR i,j: CARDINAL; 

BEGIN 

WriteStringC"SerMatWrite (0: Ende)"); WriteLn; 

LOOP 

WriteStringC"Zeile ? "); ReadCard(i); 

IF i=0 THEN RETURN END; 

WriteStringC'Spalte? "); ReadCard(j); 

IF j=0 THEN RETURN END; 

IF (i <= a.r) AND (j <= a.c) THEN 
SerWrite(a.v[i, j] ) 

END 

END 

END SerMatWrite; 

PROCEDURE SerEval(ser: tSer): LONGREAL; 

(* Die einzelnen Komponenten der Potenzreihe ’ser’ werden addiert. Das 
Ergebnis wird als Funktionsergebnis zurueckgegeben. *) 

VAR k: CARDINAL; 

res: LONGREAL; 

BEGIN 

res:= 0.0; 

FOR k:= 0 TO SerMax DO 
res:= res + ser[k] 

END; 

RETURN res 
END SerEval; 

PROCEDURE SerAssignCa: tSer; VAR b: tSer); 

(* In ’b’ wird eine Kopie der Potenzreihe ’a’ zurueckgegeben. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
b [k] : = a [k] 

END 

END SerAssign; 

PROCEDURE SerAdd(a,b: tSer; VAR c: tSer); 

(* Die Potenzreihen ’a’ und ’b’ werden addiert. Das Ergebnis wird in ’c’ 
zurueckgegeben. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
c [k] : = a [k] + b [k] 

END; 

(* Fehlersuche: *) 

IF BGHDebug = 0 THEN 

WriteStringC"SerAdd: 1.Summand ausgewertet: "); 

WriteRealCSerEvalCa), 10, 5); WriteLn; 

WriteStringC" 2. Summand ausgewertet: "); 

WriteRealCSerEvalCb), 10, 5); WriteLn; 

WriteStringC'Ergebnis ausgewertet: "); 

WriteRealCSerEvalCc), 10, 5); WriteLn; 

WriteStringC" Summe d. ausgewerteten Summanden:"); 

WriteRealCSerEvalCa) + SerEvalCb), 10, 5); Wait; 

END; 

END SerAdd; 

PROCEDURE SerSubCa,b: tSer; VAR c: tSer); 

C* Die Potenzreihen ’a’ und ’b’ werden voneinander subtrahiert Ca - b). 

Das Ergebnis wird in ’c’ zurueckgegeben. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
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c [k] : = a [k] - b [k] 

END; 

(* Fehlersuche: *) 

IF BGHDebug = 0 THEN 

WriteStringC'SerSub: Subtrahend ausgewertet: "); 
WriteReal(SerEval(a), 10, 5); WriteLn; 

WriteStringC" Minuend ausgewertet: "); 

WriteReal(SerEval(b), 10, 5); WriteLn; 

WriteStringC"Ergebnis ausgewertet: "); 

WriteReal(SerEvalCc), 10, 5); WriteLn; 

WriteStringC" Diff. d. ausgewerteten Operanden:"); 

WriteReal(SerEvalCa) - SerEval(b), 10, 5); Wait; 

END; 

END SerSub; 

PROCEDURE SerMultCa,b: tSer; VAR c: tSer); 

C* Die Potenzreihen ’a’ und ’b’ werden miteinander multipliziert. Das 
Ergebnis wird in ’c’ zurueckgegeben. *) 

VAR k,1: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
c [k] : = 0.0; 

FOR 1:= 0 TO k DO 

c [k] : = c [k] + a[l] * b[k-l] 

END 

END; 

C* Fehlersuche: *) 

IF BGHDebug = 0 THEN 

WriteStringC'SerMult: 1.Faktor ausgewertet: "); 
WriteReal(SerEvalCa), 10, 5); WriteLn; 

WriteStringC" 2.Faktor ausgewertet: "); 

WriteReal(SerEvalCb), 10, 5); WriteLn; 

WriteStringC"Ergebnis ausgewertet: "); 

WriteReal(SerEvalCc), 10, 5); WriteLn; 

WriteStringC" Mult. d. ausgewerteten Faktoren:"); 
WriteReal(SerEvalCa) * SerEval(b), 10, 5); Wait; 

END; 

END SerMult; 

PROCEDURE SerXMultCa: tSer; x: LONGREAL; VAR b: tSer); 

C* Die Potenzreihe ’a’ wird mit der Zahl ’x’ multipliziert. Das Ergebnis 
wird in ’b’ zurueckgegeben. *) 

VAR k: CARDINAL; 

BEGIN 

FOR k:= 0 TO SerMax DO 
b[k] := a[k] * x 

END; 

C* Fehlersuche: *) 

IF BGHDebug = 0 THEN 

WriteStringC'SerXMult: Potenzreihe ausgewertet: "); 
WriteReal(SerEvalCa), 10, 5); WriteLn; 

WriteStringC" Ergebnis ausgewertet: "); 

WriteReal(SerEvalCb), 10, 5); 

WriteStringC" Mult, mit ausgewerteter Reihe:"); 
WriteReal(SerEvalCa) * x, 10, 5); Wait; 

END; 

END SerXMult; 

PROCEDURE SerDivCa,b: tSer; VAR c: tSer); 

C* Die Potenzreihe ’a’ wird durch die Potenzreihe ’b’ mit Hilfe des 
Satzes von Taylor dividiert. Dazu muss der konstante Term von ’b’ 
gleich ’l’ sein. *) 
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VAR factor, b2, power: tSer; 

k: CARDINAL; 

BEGIN 

SerClear(c); 

(* Fehlersuche: *) 

IF BGHDebug <= 1 THEN 

WriteStringC'Dividend (ausgewertet: "); 

WriteReal(SerEval(a),20,10); WriteStringC"):"); WriteLn; 
SerWrite(a); Wait; 

WriteStringC'Divisor (ausgewertet: "); 

WriteReal (SerEval (b) , 20,10) ; WriteStringC 1 ):"); WriteLn; 
SerWrite(b); Wait 

END; 

BGHDebug:= cBGHNoDebug; 

SerAssign(b, factor); 
factor [0] : = 0.0; 

SerXMult(factor, -1.0, factor); 

SerClear(b2); 
b2 [0]:= 1.0; 

SerAssign(factor, power); 

SerAdd(b2, power, b2); 

FQR k:= 1 T0 SerMax-1 DO 

SerMult(power, factor, power); 

SerAdd(b2, power, b2) 

END; 

SerMult(a,b2,c); 

BGHDebug:= cBGHDebug; 

(* Fehlersuche: *) 

IF BGHDebug <= 1 THEN 

WriteStringC'Ergebnis der Division:"); WriteLn; 
SerWrite(c); Wait; 

WriteStringC'als Zahl: "); WriteReal(SerEval(c),20,10); 
Wait; 

WriteStringC'Reihen ausgewertet und dividiert: "); 
WriteReal(SerEval(a) / SerEval(b),20,10); Wait; 

END 

END SerDiv; 

PR0CEDURE Kronecker(a,b: CARDINAL): L0NGREAL; 

(* Diese Prozedur implementiert das Kronecker-Delta. *) 

BEGIN 

IF a=b THEN 
RETURN 1.0 

ELSE 

RETURN 0.0 

END 

END Kronecker; 

PR0CEDURE Ceil(a: L0NGREAL): L0NGREAL; 

BEGIN 

IF LFLOAT(TRUNC(a)) # a THEN 
IF a > 0.0 THEN 

a:= LFLOAT(TRUNC(a + 1.0)) 

ELSE 


a:= LFLOAT(TRUNC(a)) 
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END 

END; 

RETURN a 
END Ceil; 

PROCEDURE Transform(a: tMat; VAR aSer: tSerMat); 

(* In ’aSer’ wird die der Matrix ’a’ entsprechende Potenzreihenmatrix 
zurueckgegeben. *) 

VAR i,j: CARDINAL; 
max: LONGREAL; 

LogMax: LONGREAL; 

LineFactor: LONGREAL; 

BEGIN 

max:= 0.0; 

FOR i:= 1 TO a.r DO 

FOR j:= 1 TO a.c DO 

IF ABS(a.v[i,j]) > max THEN 
max:= ABS(a.v [i,j]) 

END 

END 

END; 

aSer.r:= a.r; aSer.c:= a.c; 

FOR i:= 1 TO aSer.r DO 

FOR j:= 1 TO aSer.c DO 

SerClear(aSer.v[i,j]); 

aSer.v[i,j][0]:= Kronecker(i,j); 

aSer.v [i , j] [1]:= (-1.0) 

* (Kronecker (i ,j ) - a.v[i,j]) 

END 

END; 

(* Fehlersuche: *) 

IF BGHDebug < cBGHNoDebug THEN 

WriteStringC'Transform: Test der Transformation... "); 

FOR i:= 1 TO aSer.r DO 

FOR j:= 1 TO aSer.c DO 

IF (SerEval(aSer.v [i,j]) * LineFactor) - a.v[i,j] > 0.00001 
THEN 

WriteString("FEHLERHAFT ( Element ["); 

WriteCard(i ,0) ; WriteStringC , ") ; WriteCard(j ,0) ; 
WriteStringO 1 ] )"); WriteLn; 

WriteStringC erwartet:"); WriteReal(a.v[i,j],20,10); 

WriteLn; 

WriteStringC bekommen:"); 

WriteReal( SerEval(aSer.v[i,j]) * LineFactor, 10, 5); 
HALT; 

END 

END 

END; 

WriteStringC OK") ; WriteLn 

END; 

END Transform; 

PROCEDURE ZeroesInColumn(col: CARDINAL; VAR aSer: tSerMat); 

(* Mit Hilfe des Gauss’schen EliminationsVerfahrens werden in Spalte ’col’ 
von ’aSer’ unterhalb der Hauptdiagonalen Nullen "produziert". *) 

VAR LineFactor: tSer; 
multiple: tSer; 
i,j : CARDINAL; 

BEGIN 

FOR i:= col+1 TO aSer.r DO 

SerDiv(aSer.v[i,col], aSer.v[col,col], LineFactor); 

FOR j:= col TO aSer.c DO 

SerMult(aSer.v[col,j], LineFactor, multiple); 
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SerSub(aSer.v [i,j], multiple, aSer.v[i,j]) 

END 

END; 

(* Fehlersuche: *) 

IF BGHDebug <= 2 THEN 

WriteStringC'ZeroesInColumn: "); SerMatWrite(aSer) 

END 

END ZeroesInColumn; 

PROCEDURE MultDiag(aSer: tSerMat; VAR res: tSer); 

(* In ’res’ wird die Potenzreihe zurueckgegeben, die durch Multiplikation 
der Elemente der Hauptdiagonalen der Potenzreihenmatrix ’aSer’ 
entsteht. *) 

VAR k: CARDINAL; 

res2: LONGREAL; 

BEGIN 

SerAssign(aSer.v[1,1], res); 

FÜR k:= 2 TD aSer.c DO 

SerMult(res, aSer.v[k,k], res) 

END; 

(* Fehlersuche: *) 

IF BGHDebug <= 2 THEN 

WriteStringC'MultDiag: erst ausgewertet und dann multipliziert:"); 
res2:= SerEval(aSer.v[1,1]); 

FÜR k:= 2 TO aSer.c DO 

res2:= res2 * SerEval(aSer.v[k,k]) 

END; 

WriteReal(res2, 10, 5); WriteLn; 

WriteStringC Ergebisreihe ausgewertet: "); 

WriteReal(SerEval(res), 10, 5); WriteLn; 

END 

END MultDiag; 

PROCEDURE BGH(a: tMat): LONGREAL; 

(* Determiantenberechnung mit Hilfe des Algorithmus von ’Borodin, von zur 
Gathen und Hopcroft *) 

VAR aSer: tSerMat; 

SerDet: tSer; 
k: CARDINAL; 

BEGIN 

Transform(a, aSer); 

FOR k:= 1 TO aSer.c - 1 DO 
ZeroesInColumn(k, aSer) 

END; 

MultDiag(aSer, SerDet); 

(* Fehlersuche: *) 

IF BGHDebug <= 2 THEN 

WriteStringC'Determinate als Potenzreihe: "); WriteLn; 

SerWrite(SerDet); Wait; 

END; 

RETURN SerEval(SerDet) 

END BGH; 

PROCEDURE GetR(a: tMat; i: CARDINAL; VAR r: tMat); 

(* In ’r’ wird der Vektor zurueckgegeben, den man aus den Elementen der 
’i’-ten Zeile oberhalb Hauptdiagonalen der Matrix ’a’ erhaelt. *) 

VAR k: CARDINAL; 

BEGIN 

MatClear(r, 1, n-i); 
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FOR k:= 1 TO r.c DO 

r. v[l,k]:= a.v[i,k+i] 

END; 

(* Fehlersuche: *) 

IF BerkDebug THEN 

WriteStringC'R") ; WriteCard(i,0) ; WriteStringC : ") ; WriteLn; 
WriteMat(r); Wait 

END 

END GetR; 

PROCEDURE GetS(a: tMat; i: CARDINAL; VAR s: tMat); 

(* In ’s’ wird der Vektor zurueckgegeben, den man aus den Elementen 
der ’i’-ten Spalte von ’a’ unterhalb der Hauptdiagonalen erhaelt. *) 
VAR k: CARDINAL; 

BEGIN 

MatClear(s, n-i, 1); 

FOR k:= 1 TO s.r DO 

s. v[k,l]:= a.v[k+i,i] 

END; 

(* Fehlersuche: *) 

IF BerkDebug THEN 

WriteStringC'S") ; WriteCard(i,0); WriteStringC':"); WriteLn; 
WriteMat(s); Wait; 

END 

END GetS; 

PROCEDURE GetM(a: tMat; i: CARDINAL; VAR m: tMat); 

(* In ’m’ wird die Untermatrix von ’a’ zurueckgegeben, die durch 
Streichen der ersten ’i’ Zeilen und Spalten entsteht *) 

VAR k,1 : CARDINAL; 

BEGIN 

MatClear(m, n-i, n-i); 

FOR k:= 1 TO m.r DO 

FOR 1:= 1 TO m.c DO 

m. v [k, 1] : = a. v [k+i, 1+i] 

END 

END; 

(* Fehlersuche: *) 

IF BerkDebug THEN 

WriteStringC'M") ; WriteCard(i, 0) ; WriteStringC':"); WriteLn; 
WriteMat(m); Wait; 

END 

END GetM; 

PROCEDURE MakeToeplitz(VAR a: tMat); 

(* Ausgehend von den Elementen in der ersten Spalte von ’a’ wird diese 
Matrix in eine Toepliz-Matrix ueberfuehrt. *) 

VAR i,j: CARDINAL; 

BEGIN 

FOR j:= 2 TO a.c DO 

FOR i:= 1 TO a.r DO 
IF i=l THEN 

a. v [i,j]:= 0.0 

ELSE 

a.v[i, j] := a.v[i-l, j-1] 

END 

END 

END 

END MakeToeplitz; 

PROCEDURE GetC(a: tMat; i: CARDINAL; VAR c: tMat); 

(* In ’c’ wir die Matrix C_i (siehe Beschreibung des Algorithmus von 
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Berkowitz) fuer die Matrix ’a’ zurueckgegeben. *) 

VAR r, m, s, rm, rms: tMat; 

k: CARDINAL; 

BEGIN 

c.r:= n-i+2; c.c:= n-i+1; 
c.v[l,l]:= -1.0; 
c. v[2,1] := a. v[i, i] ; 

IF n >= i+1 THEN 
GetR(a, i, r); 

GetS(a, i, s); 

GetM(a, i, m); 

MatAssignCr, rm); 

MatMult(rm, s, rms); 
c.v[3,l]:= rms.v[l,l]; 

FOR k:= 1 TO n-i-1 DO 
MatMultCrm, m, rm); 

MatMultCrm, s, rms); 
c.v[k+3,l]:= rms. v [1,1] 

END 

END; 

MakeToeplitz(c); 

(* Fehlersuche: *) 

IF BerkDebug THEN 

WriteStringC'C"); WriteCardCi,0); WriteStringC":"); WriteLn; 
WriteMat(c); Wait; 

END 

END GetC; 

PROCEDURE Berk(a: tMat): LONGREAL; 

(* Determinantenberechnung mit Hilfe des Algorithmus von Berkowitz *) 

VAR p: tMat; 

res, c: tMat; 
i: CARDINAL; 

BEGIN 

GetC(a, 1, res); 

FOR i:= 2 TO n DO 
GetC(a, i, c); 

MatMultCres, c, res); 

(* Fehlersuche: *) 

IF BerkDebug THEN 

WriteStringC"Produkt von CI bis C"); WriteCard(i,0); 

WriteString(":"); WriteLn; 

WriteMat(res); Wait 

END 

END; 

(* Fehlersuche: *) 

IF BerkDebug THEN 

FOR i:= 1 TO n+1 DO 

WriteRealCres.v[i,1], 0, 0); WriteLn; 

END; 

END; 

RETURN res.v[n+1, 1] 

END Berk; 

PROCEDURE IssueKrylovVektor(n: CARDINAL; VAR z: tMat); 

(* In ’z’ wird der fuer das Verfahren von Krylov zu benutzende Krylov-Vektor 
der Laenge ’n’ zurueckgegeben. *) 

VAR i: CARDINAL; 
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BEGIN 

MatClear(z, n, 1); 

FÜR i:= 1 TO n DO 
z. v [i , 1] : = 1.0 

END 

END IssueKrylovVektor; 

PROCEDURE MatSetColumn(from, to: CARDINAL; src: tMat; 

VAR dest: tMat); 

(* Spalte ’from’ der Matrix ’src’ wird nach Spalte ’to’ der Matrix ’dest’ 
kopiert. *) 

VAR i: CARDINAL; 

BEGIN 

Check(src.r = dest.r); 

FOR i:= 1 TO src.r DO 

dest.v[i,to]:= src.v[i,from] 

END 

END MatSetColumn; 

PROCEDURE CreateKrylovMatrix(a: tMat; VAR kry, zn: tMat); 

(* Fuer die Matrix ’a’ wird in ’kry’ die zugehoerige Krylov-Matrix 
zurueckgegeben. In ’zn’ wird der zugehoerige ’n’-te (’a’ besitze n 
Zeilen und Spalten) iterierte Vektor zurueckgegeben. *) 

VAR z: tMat; 

k: CARDINAL; 

BEGIN 

IssueKrylovVektor(a.r, z); 

MatClear(kry, a.r, a.c); 

MatSetColumn(1, 1, z, kry); 

FOR k:= 2 TO a.r DO 
MatMult(a, z, z); 

MatSetColumn(1, k, z, kry) 

END; 

MatMult(a, z, zn); 

IF PanDebug THEN 

WriteString("Krylov-Matrix:"); WriteLn; 

WriteMat(kry); WriteLn; 

WriteString("z_n:"); WriteLn; 

WriteMat(zn); WriteLn; 

Wait 

END 

END CreateKrylovMatrix; 

PROCEDURE MatTranspose(a: tMat; VAR b: tMat); 

(* In ’b’ wird die Transponierte der Matrix ’a’ zurueckgegeben. *) 

VAR i,j: CARDINAL; 

BEGIN 

MatClear(b, a.r, a.c); 

FOR i:= 1 TO b.r DO 

FOR j:= 1 TO b.c DO 

b.v[i, j] := a.v[j ,i] 

END 

END 

END MatTranspose; 

PROCEDURE MatRowSum(m: tMat; r: CARDINAL): LONGREAL; 

(* Als Funktionswert wird die Summe der Elemente in Zeile ’r’ der Matrix 
’m’ zurueckgegeben. *) 

VAR j: CARDINAL; 

res: LONGREAL; 

BEGIN 

res:= 0.0; 

FOR j:= 1 TO m.c DO 

res:= res + ABS(m.v[r,j]) 


END; 
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RETURN res 
END MatRowSum; 

PROCEDURE MatColSumCm: tMat; c: CARDINAL): LONGREAL; 

(* Als Funktionswert wird die Summe der Elemente in Spalte ’c’ der Matrix 
’m’ zurueckgegeben. *) 

VAR i: CARDINAL; 

res: LONGREAL; 

BEGIN 

res:= 0.0; 

FOR i:= 1 TO m.r DO 

res:= res + ABS(m.v [i,c]) 

END; 

RETURN res 
END MatColSum; 

PROCEDURE Max(a, b: LONGREAL): LONGREAL; 

(* Es wird das Maximum von ’a’ und ’b’ zurueckgegeben. *) 

BEGIN 

IF a > b THEN 
RETURN a 

ELSE 

RETURN b 

END 
END Max; 

PROCEDURE MatlNorm(a: tMat): LONGREAL; 

(* Funktionsergebnis ist die 1-Norm (maximale Betrags-Spaltensumme) 
der Matrix ’a’. *) 

VAR k: CARDINAL; 

cMax: LONGREAL; 

BEGIN 

cMax:= MatColSum(a, 1); 

FOR k:= 2 TO a.c DO 

cMax:= Max(cMax, MatColSum(a, k)) 

END; 

RETURN cMax 
END MatlNorm; 

PROCEDURE MatInftyNorm(a: tMat): LONGREAL; 

(* Funktionsergebnis ist die Unendlich-Norm (maximale Betrags-Zeilensumme) 
der Matrix ’a’. *) 

VAR k: CARDINAL; 

rMax: LONGREAL; 

BEGIN 

rMax:= MatRowSum(a, 1); 

FOR k:= 2 TO a.r DO 

rMax:= Max(rMax, MatRowSum(a, k)) 

END; 

RETURN rMax 
END MatlnftyNorm; 

PROCEDURE ErrorMat(a, b: tMat; VAR error: tMat); 

(* Fuer die Matrix ’a’ und ihre Naeherungsinverse ’b’ wird die Fehlermatrix 
berechnet und in ’error’ zurueckgegeben. *) 

VAR 

unit, ErrMult: tMat; 

BEGIN 

MatUnit(unit, b.r, b.c); 

MatMult(b, a, ErrMult); 

MatSub(unit, ErrMult, error) 

END ErrorMat; 

PROCEDURE Guesslnv(m: tMat; VAR inv: tMat); 

(* Fuer die Matrix ’m’ wird eine Naeherungsinverse berechnet und in ’inv’ 
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zurueckgegeben. *) 

VAR t: LONGREAL; 

mMult, mTrans, error: tMat; 

BEGIN 

MatTranspose(m, mTrans); 

MatMult(mTrans, m, mMult); 

t:= 1.0 / MatlNorm(mMult); 

MatXMult(mMult, t, inv); 

IF PanDebug THEN 

WriteStringC'Naeherungsinverse: "); WriteLn; 

WriteMat(inv); WriteLn; 

WriteStringC'Fehlermatrix: "); WriteLn; 

ErrorMat(m, inv, error); 

WriteMat(error); 

WriteString("l-Norm der Fehlermatrix: "); 

WriteReal(MatINorm(error), 20, 10); 

Wait 

END 

END Guesslnv; 

PROCEDURE ImproveGuessed(a, b: tMat; VAR bStern: tMat); 

(* Die Naeherungsinverse ’b’ der Matrix ’a’ wird iterativ verbessert. 

Das Ergebnis wird in ’bStern’ zurueckgegeben. *) 

VAR k: CARDINAL; 

hilf, unit, error: tMat; 

BEGIN 

Check(a. r = a. c) ; 

MatUnit(unit, a.r, a.c); 

MatXMult(unit, 2.0, unit); 

MatAssign(b, bStern); 

FÜR k:= 1 TO PanLoops DO 

(* B_i := (2E_n - B.{i-l}A)B.{i-l} *) 

MatMult(bStern, a, hilf); 

MatSub(unit, hilf, hilf); 

MatMult(hilf, bStern, bStern); 

IF PanDebug THEN 

WriteStringC'ImproveGuessed: 1-Norm der Fehlermatrix: "); 
ErrorMat(a, bStern, error); 

WriteReal(MatlNorm(error), 20, 10); 

WriteLn 

END 

END; 

END ImproveGuessed; 

PROCEDURE Pan(a: tMat): LONGREAL; 

(* Determinantenberechnung mit Hilfe des Algorithmus von Pan *) 

VAR kry, InvKry, ImprovedKry, zn, c: tMat; 

BEGIN 

CreateKrylovMatrix(a, kry, zn); 

Guesslnv(kry, InvKry); 

ImproveGuessed(a, InvKry, ImprovedKry); 

MatMult(ImprovedKry, zn, c); 

IF PanDebug THEN 

WriteStringC'Ergebnisvektor: ") ; WriteLn; 

WriteMat(c); WriteLn; 

END; 

RETURN c. v [n+1,1] 

END Pan; 

PROCEDURE Trivial(a: tMat): LONGREAL; 
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(* Es wird die Determinante von ’a’ durch Betrachtung aller 
Index-Permutationen berechnet. *) 

BEGIN 

CASE n OF 

2: RETURN a.v[l,l] * a.v[2,2] - a.v[2,l] * a.v[l,2] 

I 3: RETURN a.v[l,l] * a.v[2,2] * a.v[3,3] 

+ a.v[l,2] * a.v[2,3] * a.v[3,l] 

+ a.v[l,3] * a.v[2,l] * a.v[3,2] 

- a.v[l,l] * a.v[2,3] * a.v[3,2] 

- a.v[l,2] * a.v[2,l] * a.v[3,3] 

- a.v[l,3] * a.v[2,2] * a.v[3,l] 

ELSE 

WriteStringC 1 *** Trivial: zu schwierig"); 

RETURN 0.0 

END 

END Trivial; 




BEGIN 

BGHDebug:= cBGHDebug; 

WriteStringC"*** Test der Algorithmen fuer 3*3—Matrizen ***"); 
ReadFile(a); 

WriteLn; 

REPEAT 

WriteStringC'Eingabe (0: Ende, 1: Hilfe)? "); 
ReadCard(eingabe); WriteLn; 

CASE eingabe OF 

0: (* tue nichts *) 

I 1: Hilfe 
I 2: ReadMat(a) 

I 3: WriteMat(a) 

I 4: WriteStringC 1 *** Alg. v. Csanky ***"); WriteLn; 
WriteReal(Csanky(a),20,10); WriteLn; 

I 5: WriteStringC 1 *** Alg. v. Borodin, von zur Gathen"); 
WriteStringC 1 und Hopcroft ***"); WriteLn; 

WriteReal(BGH(a),20,10); WriteLn; 

I 6: WriteStringC 1 *** Alg. v. Berkowitz ***"); WriteLn; 
WriteReal(Berk(a),20,10); WriteLn; 

I 7: WriteStringC 1 *** Alg. v. Pan ***"); WriteLn; 
WriteReal(Pan(a),20,10); WriteLn; 

I 8: WriteStringC 1 *** Trivialmethode ***"); WriteLn; 
WriteReal(Trivial(a),20,10); WriteLn; 

ELSE 

WriteString("Befehl unbekannt") 

END 

UNTIL eingabe = 0 
END algtest. 
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Anhang B 


Unterstützungsmodule 


In diesem Kapitel sind alle Module alphabetisch sortiert gesammelt, denen nicht das Haupt¬ 
interesse der Implementierung gilt, die jedoch zur Implementierung der Module in Kapitel A 
erforderlich sind. 


B.l Definitionsmodul ’Cali 4 


DEFINITION MODULE Cali; (* CArdLIst*) 

(* 

Listen von ganzen Zahlen (Typ LONGCARD) unter Verwendung 
des Moduls ’List’ 

*) 

IMPORT Sys, Type, Simptype, List; 

TYPE tCali= List.tList; 

(* Die folgenden Prozeduren entsprechen in ihrer Bedeutung den 
gleichnamigen im Modul ’List’, jedoch angepasst auf den 
Typ CARDINAL als Listenelemente. *) 

PROCEDURE Use(VAR list: tCali); 

PROCEDURE InsertBefore(list: tCali; item: LONGCARD); 

PROCEDURE InsertBehind(list: tCali; item: LONGCARD); 

PROCEDURE InsertQist: tCali; item: LONGCARD); 

PROCEDURE Cur(list: tCali): LONGCARD; 

PROCEDURE OutCur(list: tCali): LONGCARD; 

(* Fuer ’LONGCARD-Listen’ koennen weiterhin die Prozeduren/Funk¬ 
tionen aus dem Modul ’List’ verwendet werden, die nicht 
namensgleich zu den obigen sind. 

*) 

END Cali. 
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B.2 Implementierungsmodul ’Calfi 


IMPLEMENTATION MODULE Cali; (* CArdLIst *) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, Type, Simptype, List; 

FROM Sys IMPORT tPOINTER; 

FROM Simptype IMPORT Cardld, NewCard, DelCard, pCard; 

PROCEDURE UseCVAR list: tCali); 

BEGIN 

List .Use(list, CardldO) 

END Use; 

PROCEDURE InsertBefore(list: tCali; item: LONGCARD); 
VAR Listitem: pCard; 

BEGIN 

Listitem:= NewCard(item); 

Listitem“:= item; 

List.InsertBefore(list,Listitem) 

END InsertBefore; 

PROCEDURE InsertBehind(list: tCali; item: LONGCARD); 
VAR Listitem: pCard; 

BEGIN 

Listitem:= NewCard(item); 

Listltem“:= item; 

List.InsertBehind(list, Listitem) 

END InsertBehind; 

PROCEDURE Insertdist: tCali; item: LONGCARD); 

BEGIN 

InsertBehind(list, item) 

END Insert; 

PROCEDURE Cur(list: tCali): LONGCARD; 

VAR Listitem: pCard; 

BEGIN 

Listltem:= List.Cur(list); 

RETURN Listitem“ 

END Cur; 

PROCEDURE OutCurdist: tCali): LONGCARD; 

VAR Listitem: pCard; 

erg : LONGCARD; 

BEGIN 

Listltem:= List.OutCur(list); 
erg := Listitem“; 

DelCard(Listltem); 

RETURN erg 
END OutCur; 

END Cali. 


B.3 Definitionsmodul ’Data 4 

DEFINITION MODULE Data; 


(* Verwaltung der Testdaten der Diplomarbeit 
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Dieses Modul ermoeglicht die Handhabung aller anfallenden 
Testdaten. 

Es wird dabei nicht zwischen im Hauptspeicher stehenden und 
im Hintergrundspeicher (Festplatte) stehenden Daten unter¬ 
schieden. 

Variablen vom Typ ’ld’ (s. u.) koennen bedenkenlos neu 
gesetzt werden. Etwaige Referenzen werden im Modul zusaetz- 
lich verwaltet, so dass auf diese Weise Daten nicht 
verloren gehen. 

*) 

IMPORT Sys, Str, Type, List, Rema; 

FROM Rema IMPORT tMat; 

TYPE Id; (* Dies ist der abstrakte Datentyp, mit dessen Hilfe 
die Testdaten bearbeitet werden. Es muss eine 
Variable dieses Typs deklariert werden, die dann 
mit den Prozeduren dieses Moduls bearbeitet 
werden kann. *) 

tAlg = ( laplace, csanky, bgh, berk, pan ); 

(* Aufzaehlung der Algorithmen, fuer die Daten 
verwaltet werden. *) 

(* allgemeine Verwaltung: *) 

PROCEDURE End; 

(* Vor dem Beenden des Programms muss diese Prozedur aufgerufen 
werden, sonst kommt es zu Datenverlusten. *) 

PROCEDURE Find(VAR dat: Id; name: ARRAY OF CHAR); 

(* Diese Prozedur sucht den zu ’name’ gehoerigen Datensatz und 
liefert in ’dat’ den zugehoerigen Identifikator zurueck. 

Es wird auf jeden Fall ein Datensatz angelegt. Ob er 

neu angelegt wurde kann mit ’NeverUsed’ festgestellt werden. *) 

PROCEDURE Del(VAR dat: Id); (* DELete *) 

(* Der Datensatz ’dat’ wird geloescht. *) 

PROCEDURE Flush(); 

(* Diese Prozedur dient zur Steigerung der Datensicherheit. 

Sie bewirkt, dass alle evtl, im Hauptspeicher vorgenommenen 
Aenderungen an Datensaetzen auf den Hintergrundspeicher 
uebertragen werden. *) 

PROCEDURE FlushOnly(dat: Id); 

(* ... analog ’Flush’, jedoch nur fuer den Datensatz ’dat’ *) 

PROCEDURE HasChanged(dat: Id); 

(* Der Datensatz ’dat’ wird als veraendert markiert. Mit Hilfe 
dieser Prozedur kann man das Modul ueber Veraenderungen 
an der Matrix des Datensatzes informieren. *) 

PROCEDURE ListNamesO; 

(* Vor der Auflistung der gegenwaertig in Bearbeitung befindlichen 
Datensätze mit Hilfe von ’NextName’ muss ’ListNames’ zur 
Initialisierung der Auflistung aufgerufen werden. *) 

PROCEDURE NextName(VAR name: ARRAY OF CHAR): BOOLEAN; 

(* Nachdem mit ’ListNames’ die Auflistung der Datensatzname 
initialisiert wurde, kann durch wiederholtes Aufrufen von 
’NextName’ eine Liste aller gegenwaertig in Bearbeitung 
befindlichen Datensaetze erstellt werden. In ’name’ wird 
jeweils der Name des Datensatzes zurueckgegeben. Das 
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Funktionsergebnis ist TRUE, falls ein Datensatz gefunden 
wurde; in diesem Fall wird in ’name’ der zugehoerige 
Name zurueckgegeben. 

Die Auflistung erfolgt sortiert.*) 


(* Handhabung der Datensaetze: *) 

PROCEDURE Write(dat: Id); 

(* Der Datensatz ’dat’ wird in die Standardausgabe ausgegeben. *) 

PROCEDURE GetMat(dat: Id): tMat; 

(* Das Funktionsergebnis ist die Matrix, des Datensatzes ’dat’. 
Sie wird beim Anlegen eines neuen Datensatzes automatisch 
mit angelegt. *) 

PROCEDURE SetAlg(dat: Id; alg: tAlg; pdet: LONGREAL; 
pp, pst: LONGCARD); 

(* Im Datensatz ’dat’ werden fuer den Algorithmus ’alg’ die 
Determinante ’pdet’, die Anzahl der Prozessoren ’pp’ und 
die Anzahl der Schritte ’pst’ gespeichert. *) 

PROCEDURE GetAlg(dat: Id; alg: tAlg; VAR pdet: LONGREAL; 

VAR pp, pst: LONGCARD): BOOLEAN; 

(* ... zu ’SetAlg’ gehoerige Prozedur zum Lesen aus dem 
Datensatz. Das Funktionsergebnis ist TRUE, falls vorher 
schon mit ’SetAlg’ Daten fuer den Algorithmus 
gespeichert wurden. *) 

END Data. 


B.4 Implementierungsmodul ’Data 4 


IMPLEMENTATION MODULE Data; 

(* Verwaltung der Testdaten der Diplomarbeit 
(Erklaerungen im Definitionsmodul) 

*) 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteLn, WriteString, WriteReal, WriteCard, 

ReadLn, ReadString, ReadReal, ReadLReal, 

ReadCard, ReadLCard; 

IMPORT Sys, Str, Type, List, Rema; 

FROM Rema IMPORT tMat; 

FROM Sys IMPORT tPOINTER; 

TYPE Id = POINTER TO tldRecord; 
tldRecord = RECORD 

name: ARRAY [1..16] OF CHAR; 

(* Name, unter dem der Datensatz 
gefuehrt wird *) 
mat: tMat; 

(* Matrix, fuer die die Determinante 
berechnet werden soll *) 

HasChanged: BOOLEAN; 

(* TRUE: am Datensatz wurden Veraenderungen 
vorgenommen, die auf den Hinter¬ 
grundspeicher zu uebertragen sind *) 
AlgDat: ARRAY tAlg OF 
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RECORD (* Datensatz fuer jeden Alg.: *) 
det: LONGREAL; (* Determinante *) 
p, st: LONGCARD; 

(* Schritte und Prozessoren *) 

IsSet: BOOLEAN 

(* TRUE: es wurden Werte in 
det, p und st gespeichert *) 

END 

END; 

VAR 

DatList: List.tList; 

(* Liste der sich im Speicher befindlichen Datensaetze *) 
Typeid: Type.Id; 

(* Typidentifikation fuer ’tldRecord’ *) 

PROCEDURE NewKhilf: tPOINTER) ; 

(* Anlege-Prozedur fuer Modul 'Type’ *) 

VAR 

i: tAlg; 
dat: Id; 

BEGIN 

dat:= hilf; 

Str.Empty(dat“.name); 

Rema.Use(dat“.mat, 1, 1); 
dat“.HasChanged:= FALSE; 

FOR i:= laplace TO pan DO 
WITH dat“ . AlgDat [i] DO 
det := 0.0; 

p := 0; 

st := 0; 

IsSet:= FALSE 

END 

END 

END NewI; 

PROCEDURE Dell(hilf: tPOINTER); 

(* Loesch-Prozedur fuer Modul 'Type’ *) 

VAR 

dat: Id; 

BEGIN 

dat:= hilf; 

Rema.DontUse(dat“.mat) 

END Dell; 

PROCEDURE Write(dat: Id); 

(* Der Datensatz ’dat’ wird auf die Standardausgabe schrieben. 

Die Matrix des Datensatzes wird dabei jedoch nicht geschrieben. *) 
VAR i: tAlg; 

BEGIN 

WriteString("Datensatzname: "); WriteLn; 

WriteString(dat“.name); WriteLn; 

WriteString("Algorithmus Determinante Schritte"); 
WriteString(" Prozessoren"); WriteLn; 

FOR i:= laplace TO pan DO 
CASE i OF 

laplace: WriteStringC'Laplace "); 

I csanky : WriteStringC'Csanky "); 

I bgh : WriteStringC'BGH "); 

I berk : WriteStringC'Berkowitz") ; 

I pan : WriteStringC'Pan ") 

END; 

WriteLn; WriteString(" "); 

WITH dat“. AlgDat [i] DO 
WriteReal(det,12,4); 
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WriteCard(st,12); 

WriteCard(p,15) 

END; 

WriteLn 

END 

END Write; 

PROCEDURE WriteF(VAR f: Sys.File; dat: Id); 

(* ... analog ’Write’, jedoch erfolgt die Ausgabe in die 
Datei ’f’ *) 

VAR 

i: tAlg; 

BEGIN 

Sys.WriteString(f, "Datensatzname: "); Sys.WriteLn(f); 

Sys.WriteString(f, dat“.name); Sys.WriteLn(f); 

Sys.WriteString(f, "Algorithmus Determinante Schritte"); 
Sys.WriteString(f, " Prozessoren"); Sys.WriteLn(f); 

FÜR i:= laplace TO pan DO 
CASE i OF 

laplace: Sys.WriteString(f, "Laplace "); 

I csanky : Sys.WriteString(f, "Csanky "); 

I bgh : Sys.WriteString(f, "BGH "); 

I berk : Sys.WriteString(f, "Berkowitz"); 

I pan : Sys.WriteString(f, "Pan ") 

END; 

Sys.WriteLn(f); Sys.WriteString(f," "); 

WITH dat“.AlgDat[i] DO 

Sys.WriteReal(f,det,12,4); 

Sys.WriteCard(f,st,12); 

Sys.WriteCard(f,p,15); 

END; 

Sys.WriteLn(f) 

END 

END WriteF; 

PROCEDURE ReadF(VAR f: Sys.File; dat: Id); 

(* ... analog ’Read’, jedoch wird aus ’f’ gelesen *) 

VAR 

i: tAlg; 

BEGIN 

Sys.ReadLn(f); 

Sys.ReadString(f, dat“.name); 

Sys.ReadLn(f); 

FOR i:= laplace TO pan DO 
Sys.ReadLn(f); 

WITH dat“.AlgDat[i] DO 

Sys.ReadReal(f, det); 

Sys.ReadLCard(f, st); 

Sys.ReadLCard(f, p) 

END; 

END 

END ReadF; 

PROCEDURE End; 

BEGIN 

Flush 
END End; 

PROCEDURE Insert(dat: Id); 

(* Der Datensatz ’dat’ wird in ’DatList’ alphabetisch nach ’name’ 
sortiert eingefuegt. *) 

VAR 

cur: Id; 

ordered: BOOLEAN; 
inserted: BOOLEAN; 
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BEGIN 

IF List.Count(DatList) = 0 THEN 

List.InsertBefore(DatList, dat) 

ELSE 

List.First(DatList); 
inserted:= FALSE; 

REPEAT 

cur:= List.Cur(DatList); 

ordered:= Str.Ordered(cur~.name, dat~.name); 

IF NOT ordered THEN 

List.InsertBefore(DatList, dat); 
inserted:= TRUE 

ELSE 

IF List.AtLast(DatList) THEN 

List.InsertBehind(DatList, dat); 
inserted:= TRUE 

END 

END; 

List.Next(DatList) 

UNTIL inserted; 

END 

END Insert; 

PROCEDURE Search(VAR dat: Id; name: ARRAY OF CHAR): BOOLEAN; 

(* Der Datensatz mit dem Namen ’name’ wird in ’DatList’ 

gesucht. Falls er gefunden wird, ist das Funktionsergebnis 
TRUE und in ’dat’ wird der Datensatz zurueckgegeben. 

Wird er nicht gefunden, ist das Funktionsergebnis FALSE und 
’dat’ ist Undefiniert. *) 

VAR 

found: BOOLEAN; 

BEGIN 

IF List.Count(DatList) = 0 THEN 
RETURN FALSE 

END; 

List.First(DatList); 

REPEAT 

dat:= List.Cur(DatList); 

found:= Str.Equal(dat“.name, name); 

IF NOT found THEN 

List.Next(DatList) 

END 

UNTIL found OR (List.Cur(DatList) = dat); 

RETURN found 
END Search; 

PROCEDURE Find(VAR dat: Id; name: ARRAY OF CHAR); 

VAR 

f: Sys.File; 

BEGIN 

IF NOT Search(dat, name) THEN 
dat:= Type.NewI(Typeid); 

Str.Assign(dat".name, name); 

IF Sys.Exist(name) THEN 

Sys.OpenRe ad(f, name); 

ReadF(f, dat); 

Rema.ReadF(f, dat~.mat); 

Sys.Close(f) 

END; 

Insert(dat) 

END 

END Find; 

PROCEDURE Del(VAR dat: Id); (* DELete *) 

VAR 
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ldat: Id; 

BEGIN 

IF Search(ldat, dat“.name) THEN 
List.DelCur(DatList) 

ELSE 

WriteStringO'*** Data.Del:"); 

WriteStringO'*** Datensatz nicht in Datensatzliste;"); 
WriteStringC"*** —> Programmfehler"); 

HALT 

END; 

Sys.Delete(dat“.name); 
dat:= NIL 
END Del; 

PROCEDURE CallFlushOnly( hilf: tPQINTER ); 

VAR 

dat: Id; 

BEGIN 

dat:= hilf; 

FlushOnly(dat) 

END CallFlushOnly; 

PROCEDURE Flush(); 

BEGIN 

IF List.Count(DatList) > 0 THEN 

List.Scan(DatList, CallFlushOnly) 

END 

END Flush; 

PROCEDURE FlushOnly(dat: Id); 

VAR 

f: Sys.File; 

BEGIN 

IF dat*.HasChanged THEN 

Sys.OpenWrite(f, dat“.name); 

WriteF(f, dat); 

Rema.WriteF(f, dat“.mat); 
dat“.HasChanged:= FALSE; 

Sys.Close(f) 

END 

END FlushOnly; 

PROCEDURE HasChanged(dat: Id); 

BEGIN 

dat“.HasChanged:= TRUE 
END HasChanged; 

VAR NextPresent: BOOLEAN; 

PROCEDURE ListNamesO; 

BEGIN 

List.First(DatList); 

NextPresent:= List.Count(DatList) > 0 
END ListNames; 

PROCEDURE NextName(VAR name: ARRAY OF CHAR): BOOLEAN; 

VAR 

dat: Id; 

BEGIN 

IF NextPresent THEN 

dat:= List.Cur(DatList); 

Str.Assign(name, dat“.name); 

List.Next(DatList); 

NextPresent:= List.Cur(DatList) # dat; 

RETURN TRUE 
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ELSE 

RETURN FALSE 

END 

END NextName; 

(* Handhabung der Datensaetze: *) 

PROCEDURE GetMat(dat: Id): tMat; 

BEGIN 

RETURN dat “.mat 
END GetMat; 

PROCEDURE SetAlg(dat: Id; alg: tAlg; pdet: LONGREAL; 
pp, pst: LONGCARD); 

BEGIN 

WITH dat“.AlgDat[alg] DO 
det:= pdet; 

p== pp; 

st:= pst; 

IsSet:= TRUE 

END; 

dat *.HasChanged:= TRUE 
END SetAlg; 

PROCEDURE GetAlg(dat: Id; alg: tAlg; VAR pdet: LONGREAL; 

VAR pp, pst: LONGCARD): BOOLEAN; 

BEGIN 

WITH dat“.AlgDat [alg] DO 
pdet:= det; 
pp:= p; 
pst:= st; 

RETURN IsSet 

END 

END GetAlg; 

BEGIN 

Typeid:= Type.New(TSIZE(tIdRecord)); 

Type.SetName(Typeid,"Data.Id"); 

Type.SetNewProc(TypeId,NewI); 

Type.SetDelProc(Typeid,Dell); 

List.Use(DatList, Typeid) 

END Data. 


B.5 Definitionsmodul ’Frag‘ 


DEFINITION MODULE Frag; (* array FRAGments *) 

(* Eindimensionale Felder beliebiger Laenge 

Mit diesem Modul koennen Felder veraenderlicher Laenge 
verwaltet werden. 

*) 

IMPORT Sys, Func, Type; 

FROM Sys IMPORT tPOINTER; 


TYPE tFrag; 
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PROCEDURE Use(VAR f: tFrag; type: Type.Id; low, high: LONGCARD); 

(* Vor der Benutzung einer Variablen vom Typ ’tFrag’ muss diese 
Prozedur einmal fuer diese Variable aufgerufen werden. 

Die Elemente von ’f’ sind vom durch angegebenen Typ ’type’, 
der vorher mit Hilfe des Moduls 'Type’ vereinbart werden 
muss. 

Die weiteren Parameter entsprechen denen von ’SetRange’ und 
’SetType’. 

*) 

PROCEDURE DontUseCVAR f: tFrag); 

(* Wenn eine Variable vom Typ ’tFrag’ nie wieder benutzt werden soll 
(besonders bei lokalen Variablen am Ende von Prozeduren, da dann 
der zugehoerige Speicherplatz automatisch freigegeben wird) muss 
diese Prozedur fuer diese Variable einmal aufgerufen werden. 

*) 

PROCEDURE SetRange(f: tFrag; low, high: LONGCARD); 

(* Fuer ’f’ wird der Indexbereich neue festgelegt, ’low’ bestimmt 
die untere neue Grenze und ’high’ die obere. Alle Elemente von 
’f’, die aus dem neuen Indexbereich herausfallen werden auto¬ 
matisch geloescht. (siehe auch ’AddRef’) 

*) 

PROCEDURE SetType(f: tFrag; type: Type.Id); 

(* Der Typ der in ’f’ zu speichernden Elemente wird festgesetzt. 

’f’ wird geloescht. 

*) 

(* ADDition REFerences *) 

PROCEDURE AddRef(f: tFrag; HasRef: BOOLEAN); 

(* Es wird festgelegt, ob auf die Elemente von ’tFrag’ zusaetzliche 
Referenzen vorhanden sind und somit beim Loeschen der Elemente 
deren Speicherplatz mit durch Aufruf von ’Type.Dell’ freigegeben 
werden soll. 

Bei ’HasRef = FALSE’ wird ’Type.Dell’ aufgerufen, sonst nicht. 
Voreingestellt ist ’HasRef = FALSE’ fuer alle neu angelegten 
Variablen vom Typ ’tFrag’. 

*) 

PROCEDURE Empty(f: tFrag); 

(* Alle Elemente in ’f’ werden geloescht. *) 

PROCEDURE GetLow(f: tFrag): LONGCARD; 

(* Funktionsergebnis ist die untere Indexgrenze von ’f’. *) 

PROCEDURE GetHigh(f: tFrag): LONGCARD; 

(* Funktionsergebnis ist die obere Indexgrenze von ’f’. *) 

PROCEDURE GetType(f: tFrag): Type.Id; 

(* Funktionsergebnis ist der Typ der Elemente von ’f’. *) 

PROCEDURE Getltem(f: tFrag; index: LONGCARD): tPOINTER; 

(* Das Funktionsergebnis ist das im Feld ’f’ unter dem angegebenen 
Index gespeicherte Feldelement. *) 

PROCEDURE Setltem(f: tFrag; index: LONGCARD; item: tPOINTER); 

(* ’Setltem’ ist die zu ’Getltem’ gehoerige Prozedur zum Setzen 
des Feldinhalts. Ein vorhandenes Feldelement wird automatisch 
geloescht. (siehe auch ’AddRef’) 

*) 

PROCEDURE Transfer(from, to: tFrag); 

(* Alle Feldelement von ’from’ werden nach ’to’ uebertragen. Dazu muss 
der Indexbereich von ’from’ innerhalb des Bereiches von ’to’ 
liegen. In ’to’ bereits vorhandene Feldelemente werden automatisch 
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geloescht. (siehe auch ’AddRef’) 

*) 

END Frag. 


B.6 Implementierungsmodul ’Frag 4 


IMPLEMENTATION MODULE Frag; (* array FRAGments *) 

(* Eindimensionale Felder beliebiger Laenge 
( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT ADR, TSIZE; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

IMPORT Sys, Func, Type; 

FROM Sys IMPORT tPOINTER; 

FROM Func IMPORT Error; 

TYPE tFrag = POINTER TO tFragRec; 
tFragRec = RECORD 

type: Type.Id; 

(* Typ der Feldelemente *) 
low, high: LONGCARD; 

(* untere bzw. obere Indexgrenze *) 

AddRef: BOOLEAN; 

(* TRUE: beim Loeschen von Feldelementen 
'Type.Dell’ nicht aufrufen *) 
items: tPOINTER 

(* Zeiger auf Speicherbereich 
der Groesse 

’( high-low+1 ) * TSIZE(tPOINTER) )’ 
mit den Feldelementen 

*) 

END; 

VAR Fragld: Type.Id; 

PROCEDURE ComputeFragBytes(low, high: LONGCARD): LONGCARD; 

(* Das Funktionsergebnis ist die Groesse des Speicherbereiches, 
der noetig ist, um Feldelemente (also Zeiger) fuer den 
Indexbereich mit der unteren Grenze ’low’ und der oberen 
Grenze ’high’ zu speichern. 

*) 

BEGIN 

RETURN (high - low + 1) * TSIZE(tPOINTER) 

END ComputeFragBytes; 

PROCEDURE ComputeLoc(p: tPOINTER; dist: LONGCARD): tPOINTER; 

(* ’p’ wird als Zeiger auf eine Folge hintereinander gespeicherter 
Zeiger betrachtet. Das Funktionsergebnis ist ein Zeiger auf das 
Element dieser Folge, dessen Nummer ’dist’ angibt ( Zaehlung be¬ 
ginnt bei 0; d. h. ’ComputeLoc(p,0) = p’ ) . 

*) 

BEGIN 

RETURN p + TSIZE(tPOINTER) * dist 
END ComputeLoc; 


PROCEDURE Checklndices(proc: ARRAY OF CHAR; low, high: LONGCARD); 
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(* Die Indizes werden auf Plausibilitaet geprueft. Falls eine 

Fehlermeldung ausgegeben wird, erscheint ’proc’ als ausloesende 
Prozedur. 

*) 

BEGIN 

IF low > high THEN 
Error(proc, 

"untere Indexgrenze groesser als obere Indexgrenze") 

END 

END Checklndices; 

PROCEDURE CheckRange(proc: ARRAY OF CHAR; 

index, low, high: LONGCARD); 

BEGIN 

IF (index < low) OR (high < index) THEN 
Error(proc, 

"Der angegebene Index liegt ausserhalb des erlaubten Bereiches.") 
END 

END CheckRange; 

PROCEDURE Use(VAR frag: tFrag; type: Type.Id; low, high: LONGCARD); 
VAR i: LONGCARD; 

BEGIN 

Checklndices("Frag.Use", low, high); 

frag:= Type.NewI(Fragld); 

frag“.type:= type; 

frag“.low:= low; 

frag“.high:= high; 

frag“.AddRef:= TRUE; 

ALL0CATE( frag“.items, ComputeFragBytes(low, high) ); 

FOR i:= frag“.low TO frag“.high DO 
Setltem(frag, i, NIL) 

END; 

frag“.AddRef:= FALSE 
END Use; 

PROCEDURE DontUse(VAR f: tFrag); 

BEGIN 

Type.Dell(Fragld, f); 

END DontUse; 

PROCEDURE AddRef(f: tFrag; HasRef: BOOLEAN); 

BEGIN 

f“.AddRef:= HasRef 
END AddRef; 

PROCEDURE Empty(f: tFrag); 

VAR 

Worklndex: LONGCARD; 

WorkPointer: POINTER TO tPOINTER; 

BEGIN 

Checklndices("Frac.Empty", f“.low, f“.high); 

Worklndex:= f“.low; 

WorkPointer:= f“.items; 

REPEAT 

IF NOT f“.AddRef THEN 

Type.Dell(f“.type, WorkPointer“) 

(* 'Type.Dell’ achtet selbst auf NIL-Zeiger. 

Deshalb wird dies hier nicht geprueft. *) 

ELSE 

WorkPointer“:= NIL 

END; 

WorkPointer:= ComputeLoc(WorkPointer, 1); 

INC(Worklndex) 

UNTIL Worklndex > f“.high 
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END Empty; 

PROCEDURE Move(from, to: tFrag); 

(* Der Inhalt des Datensatzes von ’from’ wird ohne irgendwelche 
Pruefungen an den Datensatz von ’to’ zugewiesen. *) 

BEGIN 

to~.type:= from~.type; 
to~.low:= from~.low; 
to~.high:= from~.high; 
to~.AddRef:= from“.AddRef; 
to~.items:= from~.items 
END Move; 

PROCEDURE Swap(a, b: tFrag); 

VAR hilf: tFragRec; 

pHilf: tFrag; 

BEGIN 

pHilf:= ADR(hilf); 

Move(b, pHilf); 

Move(a, b); 

Move(pHilf, a) 

END Swap; 

PROCEDURE SetRange(f: tFrag; low, high: LONGCARD); 

VAR NewF: tFragRec; 
pNewF: tFrag; 
i: LONGCARD; 
cHilf: LONGCARD; 
pHilf: POINTER TO tPOINTER; 

BEGIN 

IF (f~.low # low) OR (f~.high # high) THEN 
(* neues Feld anlegen: *) 
pNewF:= ADR(NewF); 

Move(f, pNewF); 

NewF.AddRef:= TRUE; 

NewF.low:= low; 

NewF.high:= high; 

NewF.items:= NIL; 

ALLOCATE(NewF.items, ComputeFragBytes(low, high)); 

FOR i:= low TO high DO 

SetItem(pNewF, i, NIL) 

END; 

(* Inhalt des alten Feldes in das neue kopieren: *) 
Transfer(f, pNewF); 

(* altes Feld beseitigen: *) 

DEALLOCATE(f~.items, ComputeFragBytes(f~.low, f'.high)); 

(* Arbeitsdatensatz in uebergebenen Datensatz kopieren: *) 
Move(pNewF, f) 

END; 

END SetRange; 

PROCEDURE SetType(f: tFrag; type: Type.Id); 

BEGIN 

Empty(f); 
f~.type:= type 
END SetType; 

PROCEDURE GetLow(f: tFrag): LONGCARD; 

BEGIN 

RETURN f~.low 
END GetLow; 
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PROCEDURE GetHigh(f: tFrag): LONGCARD; 

BEGIN 

RETURN f “.high 
END GetHigh; 

PROCEDURE GetType(f: tFrag): Type.Id; 

BEGIN 

RETURN f*.type 
END GetType; 

PROCEDURE Getltem(frag: tFrag; index: LONGCARD): tPOINTER; 

VAR loc: POINTER TO tPOINTER; 

BEGIN 

CheckRange("Frag.Getltem", index, frag“.low, frag“.high); 
loc:= ComputeLoc(frag“.items, index - frag“.low); 

RETURN loc“ 

END Getltem; 

PROCEDURE Setltem(frag: tFrag; index: LONGCARD; item: tPOINTER); 
VAR loc: POINTER TO tPOINTER; 

BEGIN 

CheckRange("Frag.Setitem", index, frag“.low, frag“.high); 

loc:= ComputeLoc(frag“.items, index - frag“.low); 

IF frag“.AddRef THEN 
loc“:= NIL 

ELSE 

(* Type.Dell prueft selbst auf NIL; deshalb wird hier 
loc“ # NIL nicht geprueft *) 

Type.Dell(frag“.type, loc“) 

END; 

loc“:= item 
END Setitem; 

PROCEDURE Transfer(from, to: tFrag); 

VAR i: LONGCARD; 

BEGIN 

IF (from“.low < to“.low) OR (from“.high > to“.high) THEN 
ErrorC'Frag.Transfer", 

"Die Indexbereiche sind nicht kompatibel.") 

END; 

IF from“.type # to“.type THEN 
Error("Frag,Transfer", 

"Die Typen sind nicht gleich.") 

END; 

FOR i:= from“.low TO from“.high DO 
SetItem(to, i, GetItem(from, i)) 

END 

END Transfer; 

PROCEDURE DelFragl(i: tPOINTER); 

VAR I: tFrag; 

BEGIN 

I := i; 

IF I“.low > I“.high THEN 
Error("Frag.DelFragl", 

"untere Indexgrenze groesser als obere Indexgrenze"); 

END; 

Empty(I); 

DEALLOCATE( I“.items, ComputeFragBytes(I“.low, I“.high) ) 

END DelFragl; 

BEGIN 

Fragld:= Type.New(TSIZE(tFragRec)); 

Type.SetName(Fragld, "Frag.tFrag"); 



B .7 Definitionsmodul ’Func 1 


201 


Type.SetDelProc(Fragld, DelFragl) 
END Frag. 


B.7 Definitionsmodul ’Func‘ 


DEFINITION MODULE Func; (* procedures and FUNCtions *) 

(* Prozeduren und Funktionen fuer diverse Zwecke *) 

IMPORT SysMath; 

PROCEDURE Message(name, text: ARRAY OF CHAR); 

(* Es wird eine Meldung ausgegeben, in der ’name’ als Name der aus- 
loesenden Funktion und ’text’ als Text der Meldung erscheint. 

*) 

PROCEDURE Error(name, text: ARRAY OF CHAR); 

(* Diese Prozedur gibt eine Fehlermeldung aus. In der Meldung 
erscheint ’name’ als ausloesende Prozedur und ’text’ als 
Text der Meldung. 

*) 

PROCEDURE MaxCard(a,b: CARDINAL): CARDINAL; 

(* Das Funktionsergebnis ist der groessere der beiden 
Werte ’a’ und ’b’. *) 

PROCEDURE MaxLCard(a,b: LONGCARD): LONGCARD; 

(* ... analog ’MaxCard’, jedoch fuer LONGCARD *) 

PROCEDURE MinCard(a,b: CARDINAL): CARDINAL; 

(* Das Funktionsergebnis ist der kleinere er beiden 
Werte ’a’ und ’b’. *) 

PROCEDURE MinLCard(a,b: LONGCARD): LONGCARD; 

(* ... analog ’MinCard’, jedoch fuer LONGCARD *) 

PROCEDURE MaxReal(a,b: LONGREAL): LONGREAL; 

(* ... analog ’MaxCard’ ... *) 

PROCEDURE Ceil(a: LONGREAL): LONGINT; 

(* Das Funktionsergebnis ist die kleinste ganze Zahl ’b’, fuer 
die gilt ’b >= a’ . *) 

PROCEDURE FloorCa: LONGREAL): LONGINT; 

(* Das Funktionsergebnis ist die groesste ganze Zahl ’b’, fuer 
die gilt ’b <= a’. *) 

PROCEDURE ModReal(a,b: LONGREAL): LONGREAL; 

(* Das Funktionsergebnis ist der Rest der Division von 
a durch b: 

a - b * real(entier(a/b)) *) 

END Func. 


B.8 Implementierungsmodul ’Func‘ 
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IMPLEMENTATION MODULE Func; 

(* Prozeduren und Funktionen fuer diverse Zwecke 
( Erklaerungen im Definitionsmodul ) 

*) 


FROM InOut IMPORT WriteString, WriteLn; 

IMPORT SysMath; 

FROM SysMath IMPORT LReal2LInt, LInt2LReal; 

PROCEDURE Message(name, text: ARRAY OF CHAR); 

(* Es wird eine Meldung ausgegeben, in der ’name’ als Name der aus- 
loesenden Funktion und ’text’ als Text der Meldung erscheint. 

*) 

BEGIN 

WriteStringO 1 *** ") ; WriteString(name) ; 

WriteStringC : ; WriteLn; 

WriteStringO 1 *** ") ; WriteString(text) ; 

END Message; 

PROCEDURE Error(name, text: ARRAY OF CHAR); 

(* Diese Prozedur gibt eine Fehlermeldung aus. In der Meldung 
erscheint ’name’ als ausloesende Prozedur und ’text’ als 
Text der Meldung. 

*) 

BEGIN 

Message(name, text); WriteLn; 

HALT 

END Error; 

PROCEDURE MaxCard(a,b: CARDINAL): CARDINAL; 

BEGIN 

IF a>b THEN 
RETURN a 

END; 

RETURN b 
END MaxCard; 

PROCEDURE MaxLCard(a,b: LONGCARD): LONGCARD; 

BEGIN 

IF a>b THEN 
RETURN a 

END; 

RETURN b 
END MaxLCard; 

PROCEDURE MinCard(a,b: CARDINAL): CARDINAL; 

BEGIN 

IF a>b THEN 
RETURN b 

END; 

RETURN a 
END MinCard; 

PROCEDURE MinLCard(a,b: LONGCARD): LONGCARD; 

BEGIN 

IF a>b THEN 
RETURN b 

END; 

RETURN a 
END MinLCard; 


PROCEDURE MaxReal(a,b: LONGREAL): LONGREAL; 
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BEGIN 

IF a>b THEN 
RETURN a 

END; 

RETURN b 
END MaxReal; 


PROCEDURE Ceil(a: LONGREAL): LONGINT; 

BEGIN 

IF (a < O.O) OR (a = LInt2LReal(LReal2LInt(a))) THEN 
RETURN LReal2LInt(a) 

END; 

RETURN LReal2LInt(a +1.0) 

END Ceil; 

PROCEDURE FloorCa: LONGREAL): LONGINT; 

BEGIN 

IF Ca >= 0.0) OR (a = LInt2LReal(LReal2LInt(a))) THEN 
RETURN LReal2LInt(a) 

END; 

RETURN LReal2LInt(a - 1.0) 

END Floor; 

PROCEDURE ModReal(a,b: LONGREAL): LONGREAL; 

BEGIN 

RETURN a - b * LInt2LReal(LReal2LInt(a/b)) 

END ModReal; 


END Func. 


B.9 Definitionsmodul ’Hash 4 


DEFINITION MODULE Hash; 

(* Hashing 

( auch bekannt als ’Streuspeicherung’ oder 
’Schluesseltransformation’; 
siehe z. B. 

N. Wirth, 

Algorithmen und Datenstrukturen mit Modula-2, 

Teubner Verlag, Stuttgart, 

S. 277 ff. 

) 

Das Modul ’Hash’ arbeitet mit dem Modul 'Type’ zusammen. 

Es koennen Zeiger auf Objekte gespeichert werden, deren Typ 
in ’Type’ definiert worden ist. 

*) 

IMPORT Sys, SysMath, Func, Type, List, Cali, Frag; 

FROM Sys IMPORT tPOINTER; 

TYPE tHash; (* Ein Speicher, in dem Daten mit dem Modul ’Hash’ ge¬ 
speichert werden sollen, muss von diesem Typ sein. *) 

PROCEDURE UseCVAR h: tHash; type: Type.Id; size: LONGCARD); 

(* Vor der Benutzung einer Variablen vom Typ ’tFrag’ muss diese 
Prozedur einmal fuer diese Variable aufgerufen werden. 

Die Elemente von ’f’ sind vom durch angegebenen Typ ’type’, 
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der vorher mit Hilfe des Moduls 'Type’ vereinbart werden 
muss. 

Fuer den Typ ’type’ muessen dem Modul 'Type’ eine Hash-Funktion 
( ’tHashProc’ ) und eine Vergleichsfunktion ( ’tEquProc’ ) 
bekannt sein. 

In ’size’ ist die Kapazitaet von ’h’ gemessen in Anzahl der 
gespeicherten Elemente anzugeben. Falls der Platz nicht ausreichen 
sollte, wird er automatisch in Schritte der Groesse ’size’ 
erweitert. 

*) 

PROCEDURE DontUseCVAR h: tHash); 

(* Wenn eine Variable vom Typ ’tFrag’ nie wieder benutzt werden soll 
(besonders bei lokalen Variablen am Ende von Prozeduren, da dann 
der zugehoerige Speicherplatz automatisch freigegeben wird) muss 
diese Prozedur fuer diese Variable einmal aufgerufen werden. 

*) 

PROCEDURE Empty(h: tHash); 

(* Alle Elemente in ’h’ werden geloescht. *) 

PROCEDURE CallDelete(h: tHash; call: BOOLEAN); 

(* Es wird festgelegt, ob auf die Elemente von ’tFrag’ zusaetzliche 
Referenzen vorhanden sind und somit beim Loeschen der Elemente 
deren Speicherplatz mit durch Aufruf von ’Type.Dell’ freigegeben 
werden soll. 

Bei ’call = TRUE’ wird ’Type.Dell’ aufgerufen, sonst nicht. 
Voreingestellt ist ’HasRef = TRUE’ fuer alle neu angelegten 
Variablen vom Typ ’tFrag’. 

*) 

PROCEDURE Insert(h: tHash; item: tPOINTER); 

(* ’item’ wird im Hash-Speicher ’h’ abgelegt. *) 

PROCEDURE Stored(h: tHash; item: tPOINTER; 

VAR Foundltem: tPOINTER): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls ’item’ im Hash-Speicher ’h’ 
abgelegt ist. Die Gleichheit wird mit ’Type.EquI’ festgestellt. 
Falls das Funktionsergebnis TRUE ist, wird das gefundene Element 
als aktuell markiert und kann anschliessend mit ’DelCur’ aus 
dem Hash-Speicher entfernt werden. Es wird in ’Foundltem’ zurueck- 
gegeben. *) 

(* DELete CURrent *) 

PROCEDURE DelCur(h: tHash); 

(* Das aktuelle Element von ’h’ (siehe ’Stored’) wird geloescht. *) 
END Hash. 


B.10 Implementierungsmodul ’Hash‘ 


IMPLEMENTATION MODULE Hash; 

(* Hashing 

( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, SysMath, Func, Type, List, Cali, Frag; 
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FROM SysMath IMPORT sqrt, real; 
FROM Sys IMPORT tPOINTER; 

FROM Func IMPORT Error; 


CONST PrimFile = "hash.inf"; 

(* In dieser Datei werden berechnete Primzahlen 
gespeichert. *) 

HashFactor = 10L; 

(* Prozentsatz des Hash-Speichers, der nach dem Reorgani¬ 
sieren durch ’Reorg’ belegt sein soll (muss auf jeden 
Fall unter 50 liegen, sonst ist nicht garantiert, dass 
’Reorg’ fuer das naechste neue Element einen freien 
Speicherplatz schafft). 

*) 

HashDiff = 10L; 

(* Beim Einfuegen werden mindestens 

’ HashFactor + HashDiff ’ Prozent des Speichers durch 
’Insert’ durchsucht, bevor der Speicher neu organisiert 
wird. 'HashDiff’ muss groesser oder gleich 1 sein. 

’ HashFactor + HashDiff ’ muss kleiner als 50 sein 
um einen Effekt zu erzielen. 

*) 


TYPE tHash = POINTER TO tHashRec; 


tHashRec = RECORD 

current: LONGCARD; 

(* Index des aktuellen Elements von ’items’ 
InsertCount: LONGCARD; 

(* Anzahl der mit ’Insert’ eingefuegten 
Elemente (einschliesslich der bereits 
wieder geloeschten) *) 

MinSize: LONGCARD; 

(* Mindestgroesse von ’items’ 

(ist nach unten durch 100 begrenzt) *) 
deleted: Cali.tCali; 

(* Indizes der geloeschten Elemente *) 
items: Frag.tFrag 


Hashld: Type.Id; 

(* Typidentifikator fuer 'tHashRec’ *) 
PrimList: Cali.tCali; 

(* Liste von Primzahlen *) 


*) 


PROCEDURE WritePrimO ; 

(* ’PrimList’ wird in ’PrimFile’ gespeichert. *) 
VAR f: Sys.File; 

BEGIN 

Sys.OpenWrite(f, PrimFile); 

List.First(PrimList); 

REPEAT 

Sys.WriteCard(f, Cali.Cur(PrimList), 0); 
List.Next(PrimList) 

UNTIL NOT List.MoreData(PrimList); 

Sys.Close(f) 

END WritePrim; 


PROCEDURE ReadPrimO; 

(* ’PrimList’ wird aus ’PrimFile’ gelesen. *) 
VAR f: Sys.File; 

val: LONGCARD; 

BEGIN 

Sys.0penRead(f, PrimFile); 
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List.Empty(PrimList); 

REPEAT 

Sys.ReadLCard(f, val); 

List.InsertBehind(PrimList, val) 

UNTIL Sys.EOF(f); 

Sys.Close(f) 

END ReadPrim; 

PROCEDURE NewPrim(z: LONGCARD); 

(* Es wird sichergestellt, dass 'PrimList’ eine Primzahl enthaelt, die 
groesser oder gleich ’z’ ist (ggf. werden neue berechnet). *) 

VAR i, end, SqrtEnd: LONGCARD; 

cur: List.tPos; CurVal: LONGCARD; 

BEGIN 

List.Last(PrimList); 

IF Cali.Cur(PrimList) < z THEN 
REPEAT 

end:= Cali.Cur(PrimList) + z; 

SqrtEnd:= Func.Ceil( sqrt(real(end)) ); 

FOR i:= Cali.Cur(PrimList) + 1 TO end DO 

IF (( i MOD 2 ) # 0) AND ((i MOD 3) # 0) THEN 
Cali.InsertBehind(PrimList, i) 

END 

END; 

List.First(PrimList); 

List.Next(PrimList); List.Next(PrimList); 

REPEAT 

cur:= List.GetPos(PrimList); 

CurVal:= Cali.Cur(PrimList); 

List.Next(PrimList); 

WHILE List.MoreData(PrimList) DO 

IF (Cali.Cur(PrimList) DIV CurVal) = 0 THEN 
List.DelCur(PrimList) 

ELSE 

List.Next(PrimList) 

END 

END; 

List.SetPos(PrimList, cur); 

List.Next(PrimList) 

UNTIL List.AtLast(PrimList) 

0R (Cali.Cur(PrimList) > SqrtEnd) 

UNTIL Cali.Cur(PrimList) >= z; 

WritePrim 

END 

END NewPrim; 

PROCEDURE GetPrim(z: LONGCARD): LONGCARD; 

(* Funktionsergebnis ist die zu ’z’ naechst groessere Primzahl. 

Falls ’z’ eine Primzahl ist, wird sie als Ergebnis zurueck- 
gegeben. 

Zur Berechnung der Primzahlen wird das Sieb des Eratostenes 
verwendet. 

*) 

BEGIN 

NewPrim(z); 

List.Last(PrimList); 

WHILE (Cali.Cur(PrimList) > z) AND List.MoreData(PrimList) DO 
List.Prev(PrimList) 

END; 

IF Cali.Cur(PrimList) = z THEN 
RETURN z 
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ELSE 

IF Cali.Cur(PrimList) < z THEN 
List.Next(PrimList) 

END; 

RETURN Cali.Cur(PrimList) 

END 

END GetPrim; 

PROCEDURE Use(VAR h: tHash; type: Type.Id; size: LONGCARD); 

BEGIN 

IF size < 100 THEN 
size:= 100 

END; 

h:= Type.NewI(Hashld); 

Frag.SetType(h“.items, type); 

Frag.SetRange(h“.items, 0, GetPrim(size)); 
h“.MinSize:= Frag.GetHigh(h“.items) 

END Use; 

PROCEDURE DontUse(VAR h: tHash); 

BEGIN 

Type.Dell(Hashld, h) 

END DontUse; 

PROCEDURE Empty(h: tHash); 

BEGIN 

List.Empty(h“.deleted); 

Frag.Empty(h“.items); 
h“.InsertCount:= 0; 
h“.current:= 0 
END Empty; 

PROCEDURE CallDeleteQi: tHash; call: BOOLEAN) ; 

BEGIN 

Frag.AddRef(h“.items, NOT call) 

END CallDelete; 

PROCEDURE Transfer(from, to: tHash); 

(* Alle nicht als geloescht markierten Elemente in ’from’ werden 
nach ’to’ uebertragen. 

Nach dem Aufruf von 'Transfer’ ist ’from’ vollstaendig leer. 

*) 

VAR i: LONGCARD; 

BEGIN 

IF Frag.GetType(from“.items) # Frag.GetType(to“.items) THEN 
ErrorC'Hash.Transfer", 

"Die Elementtypen der Hash-Speicher sind verschieden.") 

END; 

List.First(from“.deleted); 

WHILE List.MoreData(from“.deleted) DO 

Frag.SetItem(from“.items, Cali.Cur(from“.deleted), NIL); 
List.Next(from“.deleted) 

END; 

F0R i:= 0 T0 Frag.GetHigh(from“.items) DO 

IF Frag.GetItem(from“.items, i) # NIL THEN 
Insert(to, Frag.Getltem(from“.items, i)) 

END 

END; 

Empty(from) 

END Transfer; 

PROCEDURE Assign(from, to: tHash); 

(* Die Verwaltungsdaten von ’from’ werden ’to’ zugewiesen. 

Die Elementtypen von ’hl’ und ’h2’ muessen gleich sein. *) 
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BEGIN 

to~.current:= from~.current; 
to~.InsertCount:= from“.InsertCount; 
to~.MinSize:= from~.MinSize; 
to~.deleted:= from~.deleted; 
to~.items:= from~.items 
END Assign; 

PROCEDURE Swap(hl, h2: tHash); 

(* Die Verwaltungsdaten von ’hl’ und ’h2’ werden vertauscht. 

Die Elementtypen von ’hl’ und ’h2’ muessen gleich sein. *) 

VAR tmp: tHash; 

BEGIN 

Use(tmp, Frag.GetType(hl~.items), Frag.GetHigh(hl".items)); 
Assign(hl, tmp); 

Assign(h2, hl); 

Assign(tmp, h2); 

DontUse(tmp) 

END Swap; 

PROCEDURE Reorg(h: tHash); 

(* Die Element in ’h’ werden neu organisiert, so dass maximal soviel 
Prozent des Hash-Speichers belegt sind, wie ’HashFactor’ angibt. *) 
VAR NewSize: LONGCARD; 

NewHash: tHash; 

BEGIN 

NewSize:= Func.MaxLCard( 

(h~.InsertCount - List.Count(h~.deleted)) 

DIV HashFactor + 1 * 100 
, h“.MinSize 

); 

Use(NewHash, Frag.GetType(h~.items), NewSize); 

Transfer(h, NewHash); 

Swap(h, NewHash); 

DontUse(NewHash) 

END Reorg; 

VAR level: CARDINAL; 

(* Variable zum Test der Rekursion *) 

PROCEDURE Insert(h: tHash; item: tPOINTER); 

VAR index, FirstIndex, delta: LONGCARD; 
end: B00LEAN; 

MaxTries: LONGCARD; 

(* Anzahl der Einfuege-Versuche, bevor ’Reorg’ 
angestossen wird *) 
tries: LONGCARD; 

(* Anzahl der bereits durchgefuehrten Versuche *) 

BEGIN 

INC(level); 
tries:= 0; 

MaxTries:= Frag.GetHigh(h~.items) DIV 100 + 1 
* (HashFactor + HashDiff); 

index := Type.HashK Frag. GetType (h~ . items) , item, 

Frag.GetHigh(h~.items) 

); 

Firstlndex:= index; 
delta:= 1; 

REPEAT 

end:= ( Frag.Getltem(h~.items, index) = NIL ); 

IF NOT end THEN 

index:= ( index + delta ) MOD Frag.GetHigh(h~.items); 
delta:= ( delta + 2 ) MOD Frag.GetHigh(h~.items); 
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INC(tries); 

ELSE 

Frag.Setltem(h~.items, index, item); 

INC(h".InsertCount) 

END 

UNTIL end OR (index = Firstindex) QR (tries > MaxTries); 

IF NOT end THEN 

IF level > 1 THEN 

Error("Hash.Insert", 

"’Garbage Collection’ schafft keinen freien Speicher"); 

ELSE 

Reorg(h); 

Insert(h, item) 

END 

END; 

DEC(level) 

END Insert; 

PROCEDURE Stored(h: tHash; item: tPOINTER; 

VAR Foundltem: tPOINTER): BOOLEAN; 

VAR index, Firstindex, delta: LONGCARD; 

end, res: BOOLEAN; 

BEGIN 

index:= Type.HashI(Frag.GetType(h~.items), item, 

Frag.GetHigh(h~.items)); 

Firstindex:= index; 
delta:= 1; 

REPEAT 

end:= ( Frag.Getltem(h~.items, index) = NIL ); 

IF NOT end THEN 

index:= ( index + delta ) MOD Frag.GetHigh(h~.items); 
delta:= ( delta + 2 ) MOD Frag.GetHigh(h~.items) 

END 

UNTIL end OR (index = Firstindex); 

IF end THEN 

FoundItem:= Frag.Getltem(h~.items, index) 

ELSE 

Foundltem:= NIL 

END; 

RETURN end 
END Stored; 

(* DELete CURrent *) 

PROCEDURE DelCur(h: tHash); 

BEGIN 

IF h~.current = 0 THEN 
Error("Hash.DelCur", 

"Das aktuelle Element ist Undefiniert.") 

END; 

Cali.Insert(h".deleted, h~.current) 

END DelCur; 

PROCEDURE NewHash(h: tPOINTER); 

VAR H: tHash; 

BEGIN 

H: = h; 

H~.current:= 0; 

H“.InsertCount:= 0; 

H~.MinSize:= 1; 

Cali.Use(H".deleted); 

Frag .Use (H~ . items , Type .NoTypeO , 1, 1) 

END NewHash; 
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PROCEDURE DelHashCh: tPOINTER); 

VAR H: tHash; 

BEGIN 

H:= h; 

List.DontUse(H~.deleted); 

Frag.DontUse(H~.items) 

END DelHash; 

BEGIN 

Hashld:= Type.New(TSIZE( tHashRec ) ); 
Type.SetName(Hashld, "Hash.tHash"); 
Type.SetNewProc(Hashld, NewHash); 

Type.SetDelProc(Hashld, DelHash); 

Cali.Use(PrimList); 

IF Sys.Exist(PrimFile) THEN 
ReadPrim 

ELSE 

Cali.InsertBehind(PrimList, 2); 
Cali.InsertBehind(PrimList, 3) 

END; 

level:= 0; 

END Hash. 


B.ll Definitionsmodul ’Inli‘ 


DEFINITION MODULE Inli; 

(* 

Listen von ganzen Zahlen (Typ LONGINT) unter Verwendung 
des Moduls ’list’ 

*) 

IMPORT Sys, Type, Simptype, List; 

TYPE tlnli= List.tList; 

(* Die folgenden Prozeduren entsprechen in ihrer Bedeutung den 
gleichnamigen im Modul ’List’, jedoch angepasst auf den 
Typ LONGINT als Listenelemente. *) 

PROCEDURE Use(VAR list: tlnli); 

PROCEDURE InsertBefore(list: tlnli; item: LONGINT); 

PROCEDURE InsertBehind(list: tlnli; item: LONGINT); 

PROCEDURE Insert(list: tlnli; item: LONGINT); 

PROCEDURE Cur(list: tlnli): LONGINT; 

PROCEDURE OutCurdist: tlnli): LONGINT; 

(* Fuer ’LONGINT-Listen’ koennen weiterhin die Prozeduren/Funk¬ 
tionen aus dem Modul ’List’ verwendet werden, die nicht 
namensgleich zu den obigen sind. 


END Inli. 
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B.12 Implementierungsmodul ’Inli‘ 


IMPLEMENTATIQN MODULE Inli; 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, Type, Simptype, List; 

FROM Sys IMPORT tPOINTER; 

FROM Simptype IMPORT Intld, Newlnt, Dellnt, plnt; 

PROCEDURE UseCVAR list: tlnli); 

BEGIN 

List .Use(list, IntldO) 

END Use; 

PROCEDURE InsertBefore(list: tlnli; item: LONGINT); 
VAR Listitem: plnt; 

BEGIN 

Listltem:= Newlnt(item); 

Listitem“:= item; 

List.InsertBefore(list,ListItem) 

END InsertBefore; 

PROCEDURE InsertBehind(list: tlnli; item: LONGINT); 
VAR Listitem: plnt; 

BEGIN 

Listltem:= Newlnt(item); 

Listitem“:= item; 

List.InsertBehind(list.Listltem) 

END InsertBehind; 

PROCEDURE Insert(list: tlnli; item: LONGINT); 

BEGIN 

InsertBehind(list,item) 

END Insert; 

PROCEDURE Cur(list: tlnli): LONGINT; 

VAR Listitem: plnt; 

BEGIN 

Listltem:= List.Cur(list); 

RETURN Listitem“ 

END Cur; 

PROCEDURE OutCur(list: tlnli): LONGINT; 

VAR Listitem: plnt; 

erg : LONGINT; 

BEGIN 

Listltem:= List.OutCur(list); 
erg := Listitem“; 

Dellnt(Listitem); 

RETURN erg 
END OutCur; 

END Inli. 


B.13 Definitionsmodul ’List‘ 
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DEFINITION MODULE List; 

(* Lineare Listen 

Zur Handhabung einzelner Elemente einer Liste wird 
das Modul ’Types’ verwendet. D. h. fuer jeden Art 
von Elementen, die in einer Liste verwaltet werden 
sollen muss mit Hilfe von ’Types’ ein entsprechender 
Type vereinbart werden. 

Jede Liste kann nur Elemente eines Datentyps enthalten. 

Fuer jeden Datentyp muessen Prozeduren vereinbart werden, 
die die Behandlung von Elementen dieses Typs ermoeglichen. 

Die erforderlichen Operationen sind: 

Anlegen, Loeschen, auf Gleichheit pruefen, auf Erfuellung 
einer Ordnungsrelation pruefen 
Die Angabe der Prozeduren fuer die Operationen ist optional, 
in Abhaengigkeit davon, wie weit die Moeglichkeiten des Moduls 
genutzt werden. 

Der Zugriff auf Listenelemente erfolgt grundsaetzlich ueber die 
zugehoerigen Adressen. 

In der Liste gibt es immer ein (ggf. Undefiniertes) 'aktuelles 
Listenelement’, auf das in verschiedenen Prozeduren Bezug genommen 
wird. 

Im Modul 'Type’ werden Listen unter dem Typnamen ’List’ gefuehrt. 

Listen von Listen koennen durch 

List .Use (ListListVar, Type . GetldC'List") ) ; 
vereinbart werden. Alle Listenprozeduren koennen unveraendert 
benutzt werden. Zu beachten ist, dass beim Einfuegen oder 
Entfernen keine Kopien von Listen angelegt werden. 

Listen von Matrizen (Modul ’Mat’) koennen durch 
List.Use(MatListVar, Type.Getld("Matrix")); 
vereinbart werden. Es gelten alle Bemerkungen analog zu 
'Listen von Listen’. 

*) 

IMPORT Sys, Str, Type; 

FROM Sys IMPORT tPOINTER; 

TYPE tList; (* Dieser Typ ist fuer Variablen zu benutzen, die 
Listen darstellen sollen. *) 

tPos; (* Dieser Typ ist in Verbindung mit den Prozeduren 
’GetPos’ und ’SetPos’ zu benutzen. *) 

(* allgemeine Verwaltungsprozeduren: *) 

PROCEDURE Use(VAR list: tList; type: Type.Id); 

(* Vor der Benutzung einer Variablen vom Typ ’tList’ muss diese 
Prozedur einmal fuer diese Variable aufgerufen werden. 

Die Elemente in ’list’ sind vom durch angegebenen Typ ’type’, 
der vorher mit Hilfe des Moduls ’Type’ vereinbart werden 
muss. 

*) 

PROCEDURE DontUse(VAR list: tList); 

(* Wenn eine Variable vom Typ ’tList’ nie wieder benutzt werden soll 
(besonders bei lokalen Variablen am Ende von Prozeduren, da dann 
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der zugehoerige Speicherplatz automatisch freigegeben wird) muss 
diese Prozedur fuer diese Variable einmal aufgerufen werden. 

*) 

PROCEDURE EmptyClist: tList); 

(* Die angegebene Liste wird geleert. *) 

(* Prozeduren, die sich auf das aktuelle Listenelement beziehen: *) 

PROCEDURE DelCurQist: tList); (* DELete CURrent *) 

(* Falls mit ’AddRef’ vereinbart wurde, dass weitere Referenzen 
auf Elemente in der angegebenen Liste existieren, wird 
das aktuelle Listenelement mit Hilfe von ’OutCur’ aus 
der Liste entfernt, ansonsten durch 'Type.Dell’. 

Es wird das Element zum 'aktuellen Listenelement’, welches 
auf das geloeschte folgt. Falls kein weiteres Element folgt, 
wird das vorhergehende Element zum aktuellen. 

*) 

PROCEDURE InsertBefore(list: tList; item: tPOINTER); 

(* ’item’ wird in ’list’ vor dem 'aktuellen Element’ 

eingefuegt. Falls das 'aktuelle Element’ Undefiniert ist, wird 
’item’ am Anfang eingefuegt. ’item’ wird zum neuen 'aktuellen 
Element’. 

*) 

PROCEDURE InsertBehind(list: tList; item: tPOINTER); 

(* ’item’ wird in ’list’ hinter dem 'aktuellen Element’ 

eingefuegt. Falls das 'aktuelle Element’ Undefiniert ist, wird 
’item’ am Ende eingefuegt. ’item’ wird zum neuen 'aktuellen 
Element’. 

*) 

PROCEDURE InsertQist: tList; item: tPOINTER); 

(* ’item’ wird in ’list’ eingefuegt. Die Stelle, an der die 
Einfuegung vorgenommen wird, ist Undefiniert. 

*) 

PROCEDURE First (list: tList); 

(* In ’list’ wird das erste Listenelement zum aktuellen. Falls 
die Liste keine Elemente enthaelt, ist nach diesem Aufruf 
das 'aktuelle Listenelement’ Undefiniert. 

*) 

PROCEDURE Last(list: tList); 

(* In ’list’ wird das letzte Listenelement zum aktuellen. Falls 
die Liste keine Elemente enthaelt, ist nach diesem Aufruf 
das 'aktuelle Listenelement’ Undefiniert. 

*) 

PROCEDURE Prev(list: tList); (* PREVious *) 

(* Das vor dem aktuellen Listenelement stehende Element wird zum 
neuen aktuellen. 

Falls vor dem Aktuellen kein Element existiert bleibt das 
erste Element das Aktuelle. 

Falls das aktuelle Listenelement Undefiniert war, bleibt es 
Undefiniert. 

Der Funktionswert ist TRUE, falls das aktuelle Listenelement 
definiert war und vor ihm ein weiteres existierte. 

*) 

PROCEDURE AtFirst(list: tList): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls das erste 
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Listenelement das Aktuelle ist. In allen anderen 
Faellen (auch wenn das aktuelle Element Undefiniert ist) 
lautet das Ergebnis FALSE. 

*) 

PROCEDURE AtLast(list: tList): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls das letzte 
Listenelement das Aktuelle ist. In allen anderen 
Faellen (auch wenn das aktuelle Element Undefiniert ist) 
lautet das Ergebnis FALSE. 

*) 

PROCEDURE Next(list: tList); 

(* Das hinter dem aktuellen Listenelement stehende Element wird zum 
neuen aktuellen. 

Falls hinter dem Aktuellen kein Element existiert, bleibt das 
letzte Element das Aktuelle. 

Falls das aktuelle Listenelement Undefiniert war, bleibt es 
Undefiniert. 

Der Funktionswert ist TRUE, falls das aktuelle Listenelement 
definiert war und hinter ihm ein weiteres existierte. 

*) 

PROCEDURE MoreData(list: tList): BOOLEAN; 

(* Nach dem Aufruf der Prozeduren 'First’, 'Last', ’Next’ 
und ’Prev’ kann mit dieser Funktion festgestellt werden, 
ob die Prozeduren das aktuelle Listenelement neu definiert 
haben. Das Funktionsergebnis ist TRUE, falls dies der Fall 
ist, sonst FALSE. 

Durch diese Funktion kann eine Liste nicht nur mit 'Scan', 
sondern auch mit 

List.First(mylist); 

WHILE List.MoreData(mylist) DO 

List.Next(mylist) 

END 

durchlaufen werden. 

Die Verwendung von ’MoreData’ in Verbindung mit Prozeduren 
ausser den oben genannten ist nicht sinnvoll. 

*) 

PROCEDURE Cur(list: tList): tPOINTER; (* CURrent *) 

(* Das Funktionsergebnis ist das aktuelle Listenelement. *) 

PROCEDURE GetPosdist: tList): tPos; (* GET POSition *) 

(* Das Funktionsergebnis ist die Position des aktuellen 
Listenelements innerhalb der Liste. Dies ist KEINE 
Ordnungszahl fuer die Listenposition. Aus dem Wert kann 
keinerlei weitergehende Information entnommen werden. 

Er kann nur in Verbindung mit ’SetPos’ weiter verwendet 
werden. 

Auf diese Weise ist es moeglich, auf bestimmte Listenelement 
sofort zuzugreifen, ohne sie erst die Liste durchsuchen zu 
muessen. *) 

PROCEDURE SetPos(list: tList; pos: tPos); (* SET POSition *) 

(* Diese Prozedur ist das Gegenstueck zu ’GetPos’ (s. o.). 

Das Listenelement an der angegebenen Position wird zum neuen 
aktuellen Listenelement. Fuer 'pos' duerfen als Werte NUR 
Funktionswerte von ’GetPos’ verwendet werden. Insbesondere 
darf bei ’SetPos’ keine andere Liste als bei ’GetPos’ angegeben 
werden. Dies wird nicht ueberprueft und fuehrt zu unvor¬ 
hersehbaren Reaktionen. *) 

PROCEDURE OutCur(list: tList): tPOINTER; (* OUT CURrent *) 
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(* Das aktuelle Listenelement wird aus der Liste entfernt, jedoch 
nicht geloescht. Es wird als Funktionswert zurueckgegeben. 

Das auf dieses Element folgende wird zum neuen aktuellen Element. 
Falls kein weiteres Element existiert, wird das vorhergehende 
Element zum aktuellen. 

*) 

(* Diverses: *) 

TYPE tScanProc= PROCEDURE(tPOINTER); 

PROCEDURE Scan(list: tList; proc: tScanProc); 

(* 'proc’ wird mit jedem Element in ’list’ als Parameter 
(beginnend beim ersten Element) genau einmal aufgerufen. 
Anschliessend ist das erste Listenelement das Aktuelle. 

*) 

PROCEDURE AddRefQist: tList); (* ADDitional REFerences *) 

(* Nachdem diese Prozedur aufgerufen wurde, erfolgt das Loeschen 
von Elementen aus dieser Liste nur durch Aufloesung von 
Referenzen und NICHT MEHR durch den Aufruf von ’Types.Dell’. 

*) 

PROCEDURE GetType(list: tList): Type.Id; 

(* Das Funktionsergebnis ist der Typ der Elemente in der 
angegebenen Liste. 

*) 

PROCEDURE Count(list: tList): LONGCARD; 

(* Das Ergebnis dieser Funktion ist die Anzahl der Elemente in 
’list’ . 

*) 

PROCEDURE CheckStructureQist: tList); 

(* Diese Prozedur dient zur Fehlersuche. Sie prueft die interne 
Verwaltungsstruktur von ’list’ und gibt Meldungen in die 
Standardausgabe aus, falls sie Strukturfehler entdeckt. *) 

END List. 


B.14 Implementierungsmodul ’List‘ 


IMPLEMENTATION MODULE List; 

(* Verwaltung von Listen 

(Erklaerungen im Definitionsmodul) 

*) 

FROM SYSTEM IMPORT TSIZE, ADR; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 
FROM InOut IMPORT WriteString, WriteLn; 
IMPORT Sys, Str, Type; 

FROM Sys IMPORT tPOINTER; 

TYPE tPoiListltem = POINTER TO tListltem; 
tPos = tPoiListltem; 

tListltem = 

RECORD 
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value : tPQINTER; 
next,prev: tPoiListltem; 

(* doppelt verkettet *) 

END; 

tList = POINTER TO tListRecord; 

tListRecord = 

RECORD (* Ringliste *) 

first : tPoiListltem; 

(* erstes Listenelement *) 
current: tPoiListltem; 

(* aktuelles Listenelement; 

vgl. ’First’, ’Next’, ’Previous’, 
’Current’ *) 

OldCurrent: tPoiListltem; 


count 

(* vorangegangener Wert von ’current’ 

(wichtig fuer ’MoreData’ *) 

: LONGCARD; 

type 

(* Anzahl der Elemente in der Liste *) 

: Type.Id; 

addref : 

(* Typ der Elemente der Liste *) 

: BOOLEAN (* ADDitional REFerences *) 

END; 

VAR 

i: CARDINAL; 
Listld: Type.Id; 

(* TRUE: beim Loeschen von Elementen dieser 
Liste werden lediglich Referenzen 
innerhalb der Liste aufgeloest; 
'Type.Dell’ wird nicht aufgerufen *) 


(* allgemeine Verwaltungsprozeduren: *) 

PROCEDURE ListNewI(hilf: tPOINTER); 

VAR 

list: tList; 

BEGIN 

list:= hilf; 

list“.first:= NIL; 

list“.current:= NIL; 

list“.OldCurrent:= NIL; 

list“.count:= 0; 

list“. type := Type .NoTypeO ; 

list“.addref:= FALSE; 

END ListNewI; 

PROCEDURE Use(VAR list: tList; type: Type.Id); 
BEGIN 

list:= Type.NewI(Listld); 
list“.type:= type 
END Use; 

PROCEDURE ListDell(hilf: tPOINTER); 

VAR 

list: tList; 

BEGIN 

list:= hilf; 

Empty(list) 

END ListDell; 

PROCEDURE DontUse(VAR list: tList); 

BEGIN 

Type.Dell(Listld, list) 

END DontUse; 
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PROCEDURE EmptyClist: tList); 

BEGIN 

First(list); 

WHILE Count(list)>0 DO 
DelCur(list) 

END 

END Empty; 

(* Prozeduren, die sich auf das aktuelle Listenelement beziehen: *) 

PROCEDURE DelCur(list: tList); (* DELete CURrent *) 

VAR 

OldCur: tPOINTER; 

BEGIN 

IF list“.current=NIL THEN 
WriteLn; 

WriteStringO 1 *** List.DeleteCur: kein aktuelles Element ***"); 
WriteLn; 

HALT; 

RETURN 

END; 

01dCur:= OutCur(list); 

IF 01dCur=NIL THEN RETURN END; 

IF NOT list“.addref THEN 

Type.Dell(list“.type, OldCur) 

END 

END DelCur; 

(* INSert *) 

PROCEDURE Ins(list: tList; value: tPOINTER; before: BOOLEAN); 

(* ’value’ wird in ’list’ eingefuegt. 

Wenn ’before=TRUE’, dann wird vor dem aktuellen Element ein¬ 
gefuegt, sonst dahinter. 

Die Liste darf leer sein. Das aktuelle Element darf Undefiniert 
(=NIL) sein. *) 

VAR 

JustCreated: tPoiListltem; 

BEGIN 

ALLOCATE(JustCreated, TSIZE(tListltem)); 

JustCreated“.value:= value; 

IF Count(list) = 0 THEN 

JustCreated“.prev:= JustCreated; 

JustCreated“.next:= JustCreated; 
list“.first:= JustCreated 

ELSE 

IF list“.current = NIL THEN 

(* fuege ganz am Anfang oder ganz am Ende ein durch 
Einfuegen zwischen Anfang und Ende und korrektes 
Setzen von ’first’: *) 
list“.current:= list“.first“.prev; 

IF before THEN 

list“.first:= JustCreated 

END 

ELSE 

IF before THEN 

(* Sonderfall: aktuelles Element ist erstes 
Element *) 

IF list“.current = list“.first THEN 
list“.first:= JustCreated 

END; 


(* setze ’current’ um ein Element nach vorne, damit 
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korrekt eingefuegt wird: *) 
list“.current:= list“.current“.prev; 

END 

END; 

(* fuege hinter ’current’ ein *) 

JustCreated“.next:= list“.current“.next; 

JustCreated“.prev:= list“.current; 

JustCreated“.prev“.next:= JustCreated; 

JustCreated“.next“.prev:= JustCreated 

END; 

list“.current:= JustCreated; 

INC(list“.count) 

END Ins; 

PROCEDURE InsertBefore(list: tList; item: tPOINTER); 

BEGIN 

Ins(list,item,TRUE) 

END InsertBefore; 

PROCEDURE InsertBehind(list: tList; item: tPOINTER); 

BEGIN 

Ins(list,item.FALSE) 

END InsertBehind; 

PROCEDURE Insert(list: tList; item: tPOINTER); 

BEGIN 

Ins(list,item,FALSE) 

END Insert; 

PROCEDURE FirstQist: tList); 

BEGIN 

WITH list“ DO 

IF current # first THEN 
01dCurrent:= current; 
current:= first 

ELSE 

(* fuer den Sonderfall: 'First’ wenn das erste 
Element bereits aktuell ist; 
in diesem Fall soll ’MoreData’ trotzdem TRUE 
liefert *) 

OldCurrent:= NIL 

END 

END 

END First; 

PROCEDURE Last(list: tList); 

BEGIN 

IF list“.first # NIL THEN 

IF list“.current # list“.first“.prev THEN 
list“.OldCurrent:= list“.current; 
list“.current:= list“.first“.prev 

ELSE 

(* fuer den Sonderfall: 'Last' wenn das letzte 
Element bereits aktuell ist; 
in diesem Fall soll ’MoreData’ trotzdem TRUE 
liefert *) 

list“.OldCurrent:= NIL 

END 

ELSE 

IF list“.current # NIL THEN 

WriteStringO 1 *** List. Last:") ; 

WriteStringC aktuelles Listenelement ausserhalb"); 
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WriteStringC der Liste"); WriteLn; 

HALT 

END 

END 

END Last; 

PROCEDURE Prev(list: tList); (* PREVious *) 

BEGIN 

IF list“.current <> NIL THEN 

IF list“.current <> list“.first THEN 
list“.OldCurrent:= list“.current; 
list“.current:= list“.current“.prev 

END 

END 

END Prev; 

PROCEDURE Next(list: tList); 

BEGIN 

IF list“.current <> NIL THEN 

IF list“.current“.next <> list“.first THEN 
list“.OldCurrent:= list“.current; 
list“.current:= list“.current“.next 

END 

END 

END Next; 

PROCEDURE MoreData(list: tList): BOOLEAN; 

BEGIN 

RETURN list“.current # list“.OldCurrent 
END MoreData; 

PROCEDURE AtFirst(list: tList): BOOLEAN; 

BEGIN 

IF list“.current <> NIL THEN 

IF list“.current = list“.first THEN 
RETURN TRUE 

END 

END; 

RETURN FALSE; 

END AtFirst; 

PROCEDURE AtLastQist: tList): BOOLEAN; 

BEGIN 

IF list“.current <> NIL THEN 

IF list“.current = list“.first“.prev THEN 
RETURN TRUE 

END 

END; 

RETURN FALSE; 

END AtLast; 

PROCEDURE Cur(list: tList): tPOINTER; (* CURrent *) 

BEGIN 

RETURN list“.current“.value 
END Cur; 

PROCEDURE GetPos(list: tList): tPos; (* GET POSition *) 

BEGIN 

RETURN list“.current 
END GetPos; 

PROCEDURE SetPos(list: tList; pos: tPos); (* SET POSition *) 
BEGIN 

list“.current:= pos 
END SetPos; 
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PROCEDURE OutCur(list: tList): tPOINTER; (* OUT CURrent *) 

VAR 

erg: tPOINTER; 
item: tPoiListltem; 

OldFirst: tPoiListltem; 

BEGIN 

IF list“.current = NIL THEN 
WriteLn; 

WriteStringC 

"*** List.OutCur: kein aktuelles Listenelement ***"); 
WriteLn; 

HALT; 

RETURN NIL 

END; 

(* Liste enthaelt mindestens ein Element: *) 

item:= list“.current; 
erg:= item“.value; 

IF Count(list) = 1 THEN 

IF list“ . currentolist“ .first THEN 
WriteLn; 

WriteStringC 

"*** List.OutCur: Fehler in Listenverwaltung; ***"); 
WriteLn; 

WriteStringC 

"*** aktuelles Listenelement in falscher Liste ***"); 
WriteLn; 

HALT 

END; 

list“.first:= NIL; 
list“.current:= NIL; 
list“.OldCurrent:= NIL 

ELSE 

(* Sonderfall: erstes Element ist aktuelles *) 

OldFirst:= list“.first; 

IF list“.current = OldFirst THEN 

list“.first:= list“.first“.next 

END; 

IF list“.current“.next = OldFirst THEN 
list“.current:= list“.current“.prev 

ELSE 

list“.current:= list“.current“.next 

END; 

item“.prev“.next:= item“.next; 
item“.next“.prev:= item“.prev 

END; 

DEALLOCATE(item,TSIZE(tListItem)); 

DEC(list“.count); 

RETURN erg 
END OutCur; 

(* Diverses: *) 

PROCEDURE ScanClist: tList; proc: tScanProc); 

VAR i: LONGCARD; 

BEGIN 

IF Count(list) = 0 THEN RETURN END; 

First(list); 
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FÜR i:= 1 TO Count(list) DO 
proc(Cur(list)); 

Next(list) 

END; 

First (list) 

END Scan; 

PROCEDURE AddRefQist: tList) ; 

BEGIN 

list“.addref:= TRUE 
END AddRef; 

PROCEDURE GetType(list: tList): Type.Id; 

BEGIN 

RETURN list“.type 
END GetType; 

PROCEDURE Count(list: tList): LONGCARD; 

BEGIN 

RETURN list“.count 
END Count; 

PROCEDURE StructureError(tl,t2: ARRAY OF CHAR); 

(* Es wird eine Fehlermeldung fuer die Prozedur ’CheckStructure’ 
ausgegeben. *) 

BEGIN 

WriteString("*** List.CheckStructure:"); WriteLn; 

WriteString("*** "); WriteString(tl); WriteLn; 

WriteString("*** "); WriteString(t2); WriteLn; 

HALT 

END StructureError; 

PROCEDURE CheckChain(list: tList; UseNext: BOOLEAN); 

(* Es wird die Verzeigerung von '1’ geprueft. Bei Strukturfehlern 
werden mit Hilfe von 'StructureError’ Fehlermeldungen 
ausgegeben. Es wird 1“.first # NIL vorausgesetzt. 

Bei 'UseNext = TRUE’ wird die Verzeigerung entlang der 
'next’-Zeiger verfolgt, sonst entlang der ’prev’-Zeiger. *) 

VAR 

CurrentFound: BOOLEAN; 

(* TRUE: list“.current kann von list“.first aus 
entlang der Verzeigerung erreicht werden 

*) 

MyCount: LONGCARD; 

(* Anzahl der Listenelemente durch Verfolgung der 
Verzeigerung festgestellt *) 

Myltem: tPoiListltem; 

(* Zeiger zur Verfolgung der Verzeigerung *) 

ErrorText: ARRAY [1..50] OF CHAR; 

BEGIN 

IF UseNext THEN 

Str.Assign(ErrorText, 

"Verfolgung entlang list“.first“.next“.next“. ...") 

ELSE 

Str.Assign(ErrorText, 

"Verfolgung entlang list“.first“.prev“.prev“. ...") 

END; 

MyCount:= 0; 

Myltem:= list“.first; 

REPEAT 

INC(MyCount); 

CurrentFound:= CurrentFound 

OR (Myltem = list“.current); 

IF UseNext THEN 

Myltem:= Myltem“.next 
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ELSE 

Myltem:= Myltem“.prev 

END 

UNTIL (Myltem = list“.first) OR (MyCount > list“.count) 

OR (Myltem = NIL); 

IF Myltem = NIL THEN 

StructureError( ErrorText, 

"ergibt keine geschlossene Ringliste") 

END; 

IF MyCount > list“.count THEN 
StructureError( ErrorText, 

"ergibt MEHR Listenelemente als list“.count angibt") 

END; 

IF MyCount < list“.count THEN 
StructureError( ErrorText, 

"ergibt WENIGER Listenelemente als list“.count angibt") 

END; 

IF (list“.current # NIL) AND NOT CurrentFound THEN 
StructureError( ErrorText, 

"fuehrt nicht zum Element list“.current") 

END 

END CheckChain; 


PROCEDURE CheckStructure(list: tList); 
BEGIN 

IF list“.count = 0 THEN 

IF list“.current # NIL THEN 
StructureError( 

"list“.count = 0 jedoch 

II II ^ 

END; 

IF list“.first # NIL THEN 
StructureError( 

"list“.count = 0 jedoch 

II II ^ 

END 

ELSE 


IF list“.first = NIL THEN 
StructureError( 

"list“.count # 0 jedoch 

II II ^ 


END; 

CheckChain(list,TRUE); 
CheckChain(list,FALSE) 

END 


END CheckStructure; 


list“.current # NIL", 


list“.first # NIL", 


list“.first = NIL", 


BEGIN 

ListId:= Type.New(TSIZE(tListRecord)); 
Type.SetName(ListId,"List.tList"); 

Type.SetNewProc(Listld, ListNewI); 

Type.SetDelProc(Listld, ListDell) 

END List. 
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DEFINITION MODULE Mali; (* MAtrix List *) 

(* 

Listen von Matrizen (Typ Rema.tMat) unter Verwendung 
des Moduls ’ list’ 
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*) 

IMPORT Sys, List, Type, Rema; 
FROM Rema IMPORT tMat; 


TYPE tMali= List.tList; 

(* Die folgenden Prozeduren entsprechen in ihrer Bedeutung den 
gleichnamigen im Modul ’List’, jedoch angepasst auf den 
Typ ’Rema.tMat’ als Listenelemente. 


*) 

PROCEDURE UseCVAR list: tMali); 

PROCEDURE InsertBefore(list: tMali; item: tMat); 

PROCEDURE InsertBehind(list: tMali; item: tMat); 

PROCEDURE Insert(list: tMali; item: tMat); 

PROCEDURE Cur(list: tMali): tMat; 

PROCEDURE OutCur(list: tMali): tMat; 

(* Fuer ’tMat-Listen’ koennen weiterhin die Prozeduren/Funk¬ 
tionen aus dem Modul ’List’ verwendet werden, die nicht 
namensgleich zu den obigen sind. 


*) 

END Mali. 
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IMPLEMENTATION MODULE Mali; (* MAtrix List *) 

(* 

Listen von Matrizen (Typ ’Rema.tMat’) unter Verwendung 
des Moduls ’list’ 

(Erklaerungen im Definitionsmodul) 

*) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, List, Type, Rema; 

FROM Sys IMPORT tPOINTER; 

FROM Rema IMPORT tMat; 

VAR Matld: Type.Id; (* Typnummer fuer ’Rema.tMat’ *) 

PROCEDURE Use(VAR list: tMali); 

BEGIN 

List.Use(list, Matld) 

END Use; 

PROCEDURE InsertBefore(list: tMali; item: tMat); 

BEGIN 

List.InsertBefore(list, tPOINTER(item)) 

END InsertBefore; 

PROCEDURE InsertBehind(list: tMali; item: tMat); 

BEGIN 
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List.InsertBehind(list, tPOINTER(item)) 
END InsertBehind; 

PROCEDURE Insert(list: tMali; item: tMat); 
BEGIN 

List.InsertBehind(list, tPQINTER(item)) 
END Insert; 

PROCEDURE Cur(list: tMali): tMat; 

VAR Listitem: tMat; 

BEGIN 

Listltem:= tMat( List.Cur(list) ); 
RETURN ListItem 
END Cur; 

PROCEDURE OutCur(list: tMali): tMat; 

VAR Listitem: tMat; 

BEGIN 

Listltem:= tMat( List.OutCur(list) ); 
RETURN ListItem 
END OutCur; 

BEGIN 

MatId:= Type.Getld("Rema.tMat") 

END Mali. 


B.17 Definitionsmodul ’Mat‘ 


DEFINITION MODULE Mat; 

(* 2-dimensionale Matrizen 

Dieses Modul erlaubt die Verwaltung von Matrizen beliebiger 
2-dimensionaler Matrizen in Verbindung mit dem Modul ’Type’. 

Als Matrizenelemente sind ausschliesslich Zeiger 
(Typ ’Sys.tPOINTER’) erlaubt. 

*) 

IMPORT Sys, SysMath, Func, Type, Frag; 

FROM Sys IMPORT tPOINTER; 

TYPE tMat; 

PROCEDURE Use(VAR mat: tMat; type: Type.Id); 

(* Vor der Benutzung einer Variablen vom Typ ’tMat’ muss diese 
Prozedur einmal fuer diese Variable aufgerufen werden. 

Die Elemente von ’mat’ sind vom durch angegebenen Typ ’type’, 
der vorher mit Hilfe des Moduls ’Type’ vereinbart werden 
muss. 

*) 

PROCEDURE DontUse(VAR mat: tMat); 

(* Wenn eine Variable vom Typ ’tMat’ nie wieder benutzt werden soll 
(besonders bei lokalen Variablen am Ende von Prozeduren, da dann 
der zugehoerige Speicherplatz automatisch freigegeben wird) muss 
diese Prozedur fuer diese Variable einmal aufgerufen werden. 

*) 

PROCEDURE SetSize(mat: tMat; row, col: LONGCARD); 

(* Durch den Aufruf von ’SetSize’ wird die Matrix ’mat’ geloescht 
und ihre Groesse auf ’row’ Zeilen und ’col’ Spalten beschraenkt 
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(Zaehlung der Zeilen und Spalten beginnt bei 1). 

Ausserdem wird der Zugriff auf die Listenelemente beschleunigt. 

*) 

PROCEDURE Set(mat: tMat; row, col: LONGCARD; item: tPOINTER); 

(* ’item’ wird in ’mat’ in Zeile ’row’ und Spalte ’col’ gespeichert. 
Ein evtl, bereits vorhandenes Element wird geloescht. 

*) 

PROCEDURE Elem(mat: tMat; row, col: LONGCARD): tPOINTER; 

(* Funktionsergebnis ist das Element von ’mat’ in Zeile ’row’ und 
Spalte ’col’. 

*) 

PROCEDURE Rows(mat: tMat): LONGCARD; 

(* Falls vorher ’Set’ fuer ’mat’ aufgerufen wurde, ist das Funktions¬ 
ergebnis die dort festgelegte Anzahl von Zeilen von ’mat’. 
Andernfalls ist das Funktionsergebnis der hoechste Zeilenindex, 
auf den bisher seit dem letzten ’Use’- oder ’Empty’-Aufruf 
mit ’Set’ zugegriffen worden ist. 

*) 

PROCEDURE Columns(mat: tMat): LONGCARD; 

(* ... analog ’Rows’, jedoch fuer den Spaltenindex *) 

PROCEDURE Empty(mat: tMat); 

(* Alle Feldelemente von ’mat’ werden geloescht (mit ’Type.Dell’). *) 
END Mat. 
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IMPLEMENTATION MODULE Mat; 

(* 2-dimensionale Matrizen 

( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, SysMath, Func, Type, Frag; 

FROM Sys IMPORT tPOINTER; 

FROM Func IMPORT Error; 

TYPE tMat = POINTER TO tMatRecord; 
tMatRecord = RECORD 

type: Type.Id; (* Typ der Matrizenelemente *) 
fix: BOOLEAN; 

(* TRUE: die Groesse der Matrix ist auf 
die in ’r’ und ’c’ angegebenen 
Werte beschraenkt; 

FALSE: die Groesse der Matrix ist un- 
beschraenkt; ’r’ und ’c’ geben 
die maximalen Zeilen- bzw. Spal¬ 
tenindizes an auf die bisher mit 
’Set’ zugegriffen wurde *) 
r, c: LONGCARD; 

(* siehe Erklaerung zur Komponente ’fix’ *) 
rows: Frag.tFrag 

(* Feld der Matrix-Zeilen *) 


END; 
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VAR Matld, Fragld: Type.Id; 

PROCEDURE Checklndices(mat: tMat; row, col: LÜNGCARD; 

proc: ARRAY OF CHAR); 

(* Es wird eine Fehlermeldung ausgegeben, wenn der Zeilenindex 
’row’ oder der Spaltenindex ’col’ fuer einen Zugriff auf ’mat’ 
ausserhalb des erlaubten Bereiches liegt. 

*) 

BEGIN 

IF mat‘.fix THEN 

IF (row > mat‘.r) OR (col > mat‘.c) THEN 
Error(proc, 

"Zugriff auf nicht existierendes Matrizenelement"); 

END 

END 

END Checklndices; 

PROCEDURE Use(VAR mat: tMat; type: Type.Id); 

BEGIN 

mat:= Type.NewI(Matld); 
mat“.type:= type; 
mat“.fix:= FALSE; 
mat ~ . r: = 0; 
mat ~ . c : = 0 
END Use; 

PROCEDURE DontUse(VAR mat: tMat); 

BEGIN 

Type.Dell(Matld, mat) 

END DontUse; 

PROCEDURE SetSize(mat: tMat; rows, columns: LONGCARD); 

VAR WorkRow: Frag.tFrag; 

k: LONGCARD; 

BEGIN 

IF mat‘.rows # Frag.tFrag(NIL) THEN 
Frag.DontUse(mat“.rows) 

END; 

Frag.Use(mat“.rows, Fragld, 1, rows); 
mat ~.fix:= TRUE; 
mat“.r:= rows; 
mat“.c:= columns; 

FOR k:= 1 TO rows DO 

WorkRow:= Frag.tFrag( 

Frag.Getltem(mat‘.rows, k) 

); 

IF WorkRow = Frag.tFrag(NIL) THEN 

Frag.Use(WorkRow, mat‘.type, 1, columns); 

Frag.Setltem(mat~.rows, k, tPOINTER(WorkRow)) 

ELSE 

Error("Mat.SetSize","bereits initialisierte Zeilen vorhanden"); 

END 

END 

END SetSize; 

PROCEDURE Set(mat: tMat; row, col: LONGCARD; item: tPOINTER); 

VAR WorkRow: Frag.tFrag; 

BEGIN 

Checklndices(mat, row, col, "Mat.Set"); 

IF mat‘.fix THEN 

WorkRow:= Frag.tFrag( 

Frag.Getltem(mat‘.rows, row) 

); 

IF WorkRow = Frag.tFrag(NIL) THEN 
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Frag.Use(WorkRow, mat~.type, 1, mat~.c); 

Frag.Setltem(mat~.rows, row, tPOINTER(WorkRow)) 

END; 

ELSE 

Error("Mat.Set","Behandlung von fix=FALSE nicht implementiert") 

END; 

Frag.SetItem(WorkRow, col, item) 

END Set; 

PROCEDURE Elem(mat: tMat; row, col: LQNGCARD): tPOINTER; 

VAR WorkRow: Frag.tFrag; 

BEGIN 

Checklndices(mat, row, col, "Mat.Eiern"); 

WorkRow:= Frag.tFragC Frag.Getltem(mat~.rows, row) ); 

IF WorkRow # Frag.tFrag(NIL) THEN 

RETURN Frag.GetItem(WorkRow, col) 

ELSE 

RETURN NIL 

END 

END Eiern; 

PROCEDURE Rows(mat: tMat): LONGCARD; 

BEGIN 

RETURN mat ~.r 
END Rows; 

PROCEDURE Columns(mat: tMat): LONGCARD; 

BEGIN 

RETURN mat ~.c 
END Columns; 

PROCEDURE Empty(mat: tMat); 

BEGIN 

Frag.Empty(mat~.rows); 

IF NOT mat“.fix THEN 
mat * . r: = 0; 
mat * . c : = 0 

END 

END Empty; 

PROCEDURE MatNewKm: tPOINTER); 

VAR M: tMat; 

BEGIN 

M:= m; 

M~.rows:= Frag.tFrag(NIL); 

END MatNewI; 

PROCEDURE MatDelI(m: tPOINTER); 

VAR M: tMat; 

BEGIN 

M:= m; 

Frag.DontUse(M~.rows) 

END MatDell; 

BEGIN 

MatId:= Type.New(TSIZE(tMatRecord)); 

Type.SetName(MatId, "Mat.tMat"); 

Type.SetNewProc(MatId, MatNewI); 

Type.SetDelProc(MatId, MatDell); 

Fragld:= Type.GetId("Frag.tFrag") 

END Mat. 
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DEFINITION MODULE Reli; (* REalLIst *) 

(* 

Listen von Fliesskommazahlen (Typ LONGREAL) unter Verwendung 
des Moduls ’list’ 

*) 

IMPORT Sys, Type, Simptype, List; 

TYPE tReli= List.tList; 

(* Die folgenden Prozeduren entsprechen in ihrer Bedeutung den 
gleichnamigen im Modul ’List’, jedoch angepasst auf den 
Typ LONGREAL als Listenelemente. *) 

PROCEDURE Use(VAR list: tReli); 

PROCEDURE InsertBefore(list: tReli; item: LONGREAL); 

PROCEDURE InsertBehind(list: tReli; item: LONGREAL); 

PROCEDURE Insert(list: tReli; item: LONGREAL); 

PROCEDURE Cur(list: tReli): LONGREAL; 

PROCEDURE OutCurdist: tReli): LONGREAL; 

(* Fuer ’LONGREAL-Listen’ koennen weiterhin die Prozeduren/Funk¬ 
tionen aus dem Modul ’List’ verwendet werden, die nicht 
namensgleich zu den obigen sind. 

*) 

END Reli. 


B.20 Implementierungsmodul ’Reli 4 


IMPLEMENTATION MODULE Reli; (* REalLIst *) 

(* 

Listen von Fliesskommazahlen (Typ LONGREAL) unter Verwendung 
des Moduls ’list’ 

(Erklaerungen im Definitionsmodul) 

*) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, Type, Simptype, List; 

FROM Sys IMPORT tPOINTER; 

FROM Simptype IMPORT Realld, NewReal, DelReal, pReal; 

PROCEDURE Use(VAR list: tReli); 

BEGIN 

List .Use(list, RealldO) 

END Use; 

PROCEDURE InsertBefore (list: tReli; item: LONGREAL); 



B.21 Definitionsmodul ’Rama 1 


229 


VAR Listitem: pReal; 

BEGIN 

Listltem:= NewReal(item); 

Listitem“:= item; 

List.InsertBefore(list.Listltem) 

END InsertBefore; 

PROCEDURE InsertBehind(list: tReli; item: LONGREAL); 
VAR Listitem: pReal; 

BEGIN 

Listltem:= NewReal(item); 

Listitem“:= item; 

List.InsertBehind(list.ListItem) 

END InsertBehind; 

PROCEDURE InsertQist: tReli; item: LONGREAL); 

BEGIN 

InsertBehind(list, item) 

END Insert; 

PROCEDURE Cur(list: tReli): LONGREAL; 

VAR Listitem: pReal; 

BEGIN 

Listltem:= List.Cur(list); 

RETURN Listitem“ 

END Cur; 

PROCEDURE OutCur(list: tReli): LONGREAL; 

VAR Listitem: pReal; 

erg : LONGREAL; 

BEGIN 

Listltem:= List.OutCur(list); 
erg := Listitem“; 

DelReal(Listltem); 

RETURN erg 
END OutCur; 

END Reli. 
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DEFINITION MODULE Rema; (* REal MAtrix *) 

(* 2-dimensionale LONGREAL-Matrizen 

Im Modul 'Type’ werden Matrizen unter dem Typnamen 
'Matrix’ gefuehrt. 

(d. h. 

Type.Getld("Matrix"); 
ergibt die zugehoerige Typnummer) 

Verbesserungsmoeglichkeiten: 

- Angabe der gewuenschten Eigenwerte fuer ’Randomize’ 

- Ermoeglichung nichtganzzahliger Eigenwerte 

- Abfrage der Parameter fuer ’Randomize’ 

(bisher nur Setzen moeglich) 

- Fehlermeldungen bei widerspruechlichen Parametern 
fuer ’Randomize’ 

- Erzeugung nichtdiagonalisierbarer Matrizen durch ’Randomize’ 

- ’Randomize’ auch fuer nichtquadratische Matrizen 
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- Angabe eines Intervalls, indem die Elemente der durch 
’Randomize’ erzeugten Matrizen liegen 

- automatische Erkennung der Version der Datenstruktur 
durch ’Write’, ’WriteF’, ’Read’ und ’ReadF’ 

*) 

IMPORT Sys, SysMath, Func, Rnd, Type, Frag, List, Simptype, 

Inli, Cali, Reli, Mat, Pram; 

FROM Sys IMPORT File; 

TYPE tMat; 

(* Dieser Typ ist fuer Variablen vom Typ 'Matrix’ 
zu benutzen. *) 

CONST MaxIoRow =6; (* gibt an, wieviele Matrizenelemente von 

’WriteReal’ maximal in eine Zeile 
ausgegeben werden *) 

PROCEDURE Use(VAR mat: tMat; row, col: LONGCARD); 

(* Vor der Benutzung einer Variablen vom Typ ’tMat’ muss diese 
Prozedur einmal fuer diese Variable aufgerufen 
werden. 

Eine Ausnahme hierzu bilden Variablen, denen eine Matrix mit 
Hilfe von ’Copy’ oder ’CreateMult’ zugewiesen wird. Diese 
Variablen duerfen nicht durch ’Use’ initialisiert worden 
sein. 

Nach der Grundinitialisierung wird automatisch ’Init(mat,row,col)’ 
aufgerufen. 

*) 

PROCEDURE DontUse(mat: tMat); 

(* Wenn eine Variable vom Typ 'tMat' nie wieder benutzt werden soll 

(besonders bei lokalen Variablen am Ende von Prozeduren, da dann der 
zugehoerige Speicherplatz automatisch freigegeben wird) muss diese 
Prozedur fuer diese Variable einmal aufgerufen werden. 

*) 

PROCEDURE Empty(mat: tMat); 

(* Alle Elemente der angegebenen Matrix werden mit 0 belegt. *) 

PROCEDURE Unit(mat: tMat); 

(* Die Elemente der Hauptdiagonalen von 'mat' werden auf 1 
gesetzt, alle anderen Elemente auf 0 *) 

PROCEDURE Assign(matl, mat2: tMat); 

(* Diese Prozedur weist die Elemente von Matrix ’matl’ den 

Elementen von Matrix ’mat2’ zu. Dazu muessen die Matrizen die 
gleich Anzahl von Zeilen und Spalten besitzen. 

*) 

PROCEDURE Copy(matl: tMat): tMat; 

(* Es wird eine Kopie der Matrix ’matl’ angelegt und als Funktions¬ 
wert zurueckgegeben. Die Variable, der dieser Funktionswert 
zugewiesen wird, darf vorher nicht mit ’Use’ initialisiert 
worden sein. 

*) 

PROCEDURE Elem(mat: tMat; row, col: LONGCARD): LONGREAL; 

(* Diese Funktion ergibt den Wert des Elementes an der angegebenen 
Position von Matrix ’mat’. 

*) 

PROCEDURE Set(mat: tMat; row,col: LONGCARD; val: LONGREAL); 

(* Diese Prozedur belegt das Element an der angegebenen Position 
der Matrix ’mat’ mit dem in ’val’ angegebenen Wert. 
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*) 

PROCEDURE Rows(mat: tMat): LONGCARD; 

(* Diese Funktion ergibt die Anzahl der Zeilen der 
Matrix ’mat’. 

*) 

PROCEDURE Columns(mat: tMat): LONGCARD; 

(* Diese Funktion liefert die Anzahl der Spalten der 
Matrix ’mat’. 

*) 

PROCEDURE SetSize(mat: tMat; r,c: LONGCARD); 

(* Fuer die Matrix ’mat’ wird festgelegt, dass sie ’r’ Zeilen 
und ’c’ Spalten besitzt. Durch den Aufruf dieser Prozedur 
werden alle evtl, in ’mat’ gespeicherten Daten geloescht. 

*) 

PROCEDURE SetReal(mat: tMat; real: BOOLEAN); 

(* Es wird festgelegt, ob die durch ’Randomize’ zu erzeugende 
Matrix ’mat’ Elemente mit Nachkommastellen besitzen darf. 

’real’ gibt an, ob Nachkommastellen erlaubt sind: 

TRUE : erlaubt 
FALSE: verboten 

*) 

PROCEDURE SetRank(mat: tMat; rank: LONGCARD); 

(* Fuer ’mat’ wird der gewuenschte Rang ’rank’ zur Benutzung durch 
’Randomize’ festgelegt. 

*) 

PROCEDURE SetMultiplicity(mat: tMat; mult: LONGCARD); 

(* Fuer ’mat’ wird zur Benutzung durch ’Randomize’ festgelegt, dass 
ein Eigenwert die Vielfachheit ’mult’ besitzt. Falls mit 
'SetMultiplicity keine Vielfachheiten festgesetzt werden, wird 
fuer jeden Eigenwert (ungleich 0) die Vielfachheit 1 angenommen. 

*) 

PROCEDURE Randomize(mat: tMat); 

(* ’mat’ wird anhand der mit ’Setlntervall’, ’SetRank’ und 

'SetMultiplicity’ festgesetzten Parameter mit zufaelligen Werten 
belegt. Die Vielfachheiten (mit 'SetMultiplicity’ festgelegt) 
werden nur beachtet, soweit es Matrixgroesse und Rang (mit 
’SetRank’ festgelegt) zulassen. 

’mat’ muss eine quadratische Matrix sein. 

*) 

PROCEDURE Det(mat: tMat): LONGREAL; 

(* Fuer eine durch ’Randomize’ generierte Matrix kann mit dieser 
Funktion ihre Determinante festgestellt werden. 

('Abfallprodukt’ des Generierungsvorganges) 

*) 

PROCEDURE Write(mat: tMat); 

(* Diese Prozedur schreibt den Inhalt der Matrix ’mat’ in den 
Standardausgabekanal. 

*) 

PROCEDURE WriteF(VAR f: File; mat: tMat); 

(* ... analog ’Write’, jedoch erfolgt die Ausgabe in die Datei ’f’ *) 

PROCEDURE Read(mat: tMat); 

(* Diese Prozedur liest die Werte fuer die Elemente der Matrix 
’mat’ aus dem Standard-Eingabekanal. Mit ’Write’ ausgegebene 
Matrizen koennen mit dieser Prozedur wieder eingelesen werden. 
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Die Anzahlen der Zeilen und Spalten der einzulesenden Matrix 
duerfen die entsprechenden Werte von ’mat’ nicht uebersteigen. 
Evtl, ueberzaehlige Zeilen und Spalten von ’mat’ werden mit 
Nullen belegt. 

*) 

PROCEDURE ReadF(VAR f: File; mat: tMat); 

(* ... analog ’Read’, jedoch erfolgt die Ausgabe in die Datei ’f’ *) 
PROCEDURE Add(mat1, mat2, res: tMat); 

(* Die Matrizen ’matl’ und ’mat2’ werden addiert. Das Ergebnis 
wird in ’res’ gespeichert, ’matl’ und ’mat2’ muessen die 
gleiche Groesse besitzen, ’matl’, ’mat2’ und ’res’ koennen 
dieselben Matrizen sein. 

Es werden Zaehlprozeduren des Moduls ’Pram’ zur Protokollierung 
des Berechnungsaufwandes aufgerufen. 

*) 

PROCEDURE Sub(matl, mat2, res: tMat); 

(* Matrix ’mat2’ wird von ’matl’ elementweise subtrahiert. Alles 
weitere ist gleich zu ’Add’. 

*) 

PROCEDURE Mult(matl, mat2, res: tMat); 

(* Die ’a*b’-Matrix ’matl’ wird mit der ’b*c’-Matrix ’mat2’ 
multipliziert. Das Ergebnis wird in der ’a*c’-Matrix ’res’ 
gespeichert. Die Zeilenanzahl ’a’ und die Spaltenanzahl ’c’ 
koennen zwischen 1 und ’ArrayMax’ liegen, ’matl’, ’mat2’ und 
’res’ koennen dieselben Matrizen sein. 

Es werden Zaehlprozeduren des Moduls ’Pram’ zur Protokollierung 
des Berechnungsaufwandes aufgerufen. 

*) 

PROCEDURE CreateMult(matl, mat2: tMat): tMat; 

(* ’CreateMult’ arbeitet wie ’Mult’, jedoch wird fuer das 

Ergebnis eine Matrix passender Groesse neue angelegt und als 
Funktionswert zurueckgegeben. Die Variable, der dieser Funktions¬ 
wert zugewiesen wird, darf vorher nicht mit ’Use’ initialisiert 
worden sein. 

*) 

(* SCALar MULTiplication*) 

PROCEDURE ScalMult(num: LONGREAL; matl, res: tMat); 

(* Die Matrix ’matl’ wird mit ’num’ multipliziert. Das 
Ergebnis wird in ’res’ gespeichert, ’matl’ und ’res’ 
duerfen dieselben Matrizen sein. 

Es werden Zaehlprozeduren des Moduls ’Pram’ zur Protokollierung 
des Berechnungsaufwandes aufgerufen. 

*) 

PROCEDURE Trace(mat: tMat): LONGREAL; 

(* Das Funktionsergebnis ist die Summe der Elemente der 
Hauptdiagonalen (Spur) von ’mat’. 

Es werden Zaehlprozeduren des Moduls ’Pram’ zur Protokollierung 
des Berechnungsaufwandes aufgerufen. 

*) 

END Rema. 


B.22 Implementierungsmodul ’Rema‘ 
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IMPLEMENTATIQN MODULE Rema; (* REal MAtrix *) 

(* 2-dimensionale LONGREAL-Matrizen 

(Erlaeuterungen im Definitionsmodul) 

*) 

FROM SYSTEM IMPORT TSIZE; 

FROM InOut IMPORT WriteLn, WriteCard, ReadLCard, 

ReadLReal, WriteReal, WriteString, ReadLn, 
ReadString; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

IMPORT Sys, SysMath, Func, Rnd, Type, Frag, List, Simptype, 

Inli, Cali, Reli, Mat, Pram; 

FROM Sys IMPORT tPOINTER; 

FROM SysMath IMPORT LInt2LReal, LInt2Int, Int2LInt, 

LReal2LInt, 

Card2LCard, LCard2Card; 

FROM Simptype IMPORT Realld, NewReal, pReal, 

Cardld, NewCard, pCard; 

FROM Func IMPORT Error; 

CONST RndCharSize= 50; 

(* maximale Groesse eines Elements der Matrix ’a’ 
in ’Randomize’ *) 

RndMixSize = 9.0; 

(* maximale Groessen von Elementen der Matrizen 
’s’ und ’si’ in ’Randomize’ *) 

TYPE 

tMat= POINTER TO tMatRecord; 
tMatRecord= RECORD 

longreal: BOOLEAN; 

(* TRUE: die Matrizenelemente duerfen 
Nachkommastellen besitzen *) 
rank: LONGCARD; 

(* mit Hilfe von ’SetRank’ 
festgelegter Wert *) 
mult: Cali.tCali; 

(* LONGCARD-Liste mit gewuenschten 

Vielfachheiten von Eigenwerten beim 
Erzeugen durch ’Randomize’ *) 
det: LONGREAL; 

(* Nachdem eine Matrix durch ’Randomize’ 
generiert wurde, steht in dieser 
Komponente die Determinante der 
generierten Matrix. *) 
values : Mat.tMat 

END; 

(* Prozeduren, die an die fuer ’values’ verwendete 
Datenstruktur angepasst werden muessen: 

Use, DontUse, Eiern und Set 

*) 

VAR ElemGen: Rnd.tGen; 

(* Zufallsgenerator fuer Matrizenelemente *) 

IntGen: Rnd.tGen; 

(* Zufallsgenerator zur Erzeugung von zu kombinierenden 
Zeilenindizes *) 

SignGen: Rnd.tGen; 

(* Zufallsgenerator zur Erzeugung von Vorzeichen *) 
Matld: Type.Id; 

(* Typnummer ’Rema.tMat ’ *) 
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PROCEDURE RemaNewI(hilf: tPOINTER); 

VAR 

mat: tMat; 

BEGIN 

mat:= hilf; 

Cali.Use(mat“.mult); 

Mat.Use(mat“.values, RealldO) 

END RemaNewI; 

PROCEDURE Use(VAR mat: tMat; row, col: LONGCARD); 

BEGIN 

mat:= tMat( Type.NewI(Matld) ); 

SetSize(mat, row, col) 

END Use; 

PROCEDURE RemaDell(hilf: tPOINTER); 

VAR 

mat: tMat; 

BEGIN 

mat:= hilf; 

List.DontUse(mat“.mult); 

Mat.DontUse(mat“.values); 

END RemaDell; 

PROCEDURE DontUse(mat: tMat); 

BEGIN 

Type.Dell(Matld, mat) 

END DontUse; 

PROCEDURE Empty(mat: tMat); 

BEGIN 

Mat.Empty(mat“.values) 

END Empty; 

PROCEDURE Unit(mat: tMat); 

VAR i: LONGCARD; 

BEGIN 

Empty(mat); 

FOR i:= 1 TO Func.MinLCard(Rows(mat), Columns(mat)) DO 
Set(mat,i,i,1.0) 

END 

END Unit; 

PROCEDURE Assign(matl, mat2: tMat); 

VAR 

i,j: LONGCARD; 

BEGIN 

IF (Rows(matl) # Rows(mat2)) OR 
(Columns(matl) # Columns(mat2)) 

THEN 

Error("Mat.Assign", 

"Die Matrizen besitzen nicht die gleiche Groesse.") 

END; 

FOR i:= 1 TO Rows(matl) DO 

FOR j:= 1 TO Columns(mat2) DO 

Set(mat2,i,j,Eiern(matl,i,j)) 

END 

END 

END Assign; 

PROCEDURE Copy(matl: tMat): tMat; 

VAR res: tMat; 

BEGIN 

Use(res, Rows(matl), Columns(matl)); 

Assign(matl, res); 
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RETURN res 
END Copy; 

PROCEDURE Elem(mat: tMat; row, col: LQNGCARD): LONGREAL; 

VAR erg: pReal; 

BEGIN 

IF (row > Rows(mat) ) QR 
(col > Columns(mat) ) 

THEN 

Error("Mat.Elem", 

"Der verwendete Index ist zu gross.") 

END; 

erg:= pReal( Mat.Elem(mat~.values, row, col) ); 

IF erg # pReal(NIL) THEN 
RETURN erg“ 

ELSE 

RETURN 0.0 

END 

END Elem; 

PROCEDURE Set(mat: tMat; row, col: LONGCARD; val: LONGREAL); 
VAR item: pReal; 

BEGIN 

item:= NewReal(val); 

Mat.Set(mat~.values, row, col, item) 

END Set; 

PROCEDURE Rows(mat: tMat): LONGCARD; 

BEGIN 

RETURN Mat.Rows(mat~.values) 

END Rows; 

PROCEDURE Columns(mat: tMat): LONGCARD; 

BEGIN 

RETURN Mat.Columns(mat~.values) 

END Columns; 

PROCEDURE SetSize(mat: tMat; r,c: LONGCARD); 

BEGIN 

Mat.SetSize(mat~.values, r, c); 

List.Empty(mat~.mult); 

Cali.InsertBefore(mat~.mult, 0); 
mat“.longreal:= FALSE; 
mat“.rank:= Func.MinLCard(r,c); 
mat“.det:= 0.0 
END SetSize; 

PROCEDURE SetReal(mat: tMat; real: BOOLEAN); 

BEGIN 

mat“.longreal:= real 
END SetReal; 

PROCEDURE SetRank(mat: tMat; rank: LONGCARD); 

BEGIN 

IF (rank <= 0) OR 

(Func.MinLCard( Rows(mat), Columns(mat) ) < rank) 

THEN 

Error("Mat.SetRank", 

"Der gewuenschte Rang ist zu gross.") 

END; 

mat “.rank:= rank 
END SetRank; 

PROCEDURE SetMultiplicity(mat: tMat; mult: LONGCARD); 

(* Verbesserungsmoeglichkeit: 
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Pruefung der Liste der Vielfachheiten auf Plausibilitaet *) 

BEGIN 

List.First(mat~.mult); 

Cali.InsertBefore(mat~.mult,mult); 

END SetMultiplicity; 

PROCEDURE GetRndDiagonal( 

a: tMat; rank: LQNGCARD; 

MultList: Cali.tCali; max: LONGCARD; decimal: BOOLEAN 

); 

(* In ’a’ wird eine zufaellig bestimmte Diagonalmatrix mit dem 
Rang ’rank’ und Eigenwerten der in ’MultList’ angegebenen 
Vielfachheiten. Die Elemente von ’a’ besitzen hoechstens 
die Groesse ’max’. Falls in ’decimal’ der Wert TRUE uebergeben 
wird, besitzen die Elemente von ’a’ Nachkommastellen. *) 

VAR 

num: LONGCARD; 

(* Nummer des Elements der Hauptdiagonalen, dass 
zu erzeugen ist *) 
mult: LONGCARD; 

(* aktuell zu verarbeitende Vielfachheit *) 

CharVal: LONGREAL; 

(* naechster zu verwendender Eigenwert zum Erzeugen 
der Diagonalmatrix *) 
size: LONGCARD; 

(* Minimum von Anzahl der Zeilen und Anzahl der Spalten 
von ’a’ *) 

BEGIN 

size:= Rows(a); (* Die Matrizen sind quadratisch. *) 

Empty(a); 
mult:= 0; 

List.First(MultList); 
num:= 1; 

IF decimal THEN 

Rnd.Range(ElemGen, 0.0, 

(LInt2LReal(max) / LInt2LReal(size)) ); 

CharVal:= Rnd.LongReal(ElemGen) 

ELSE 

Rnd.Range(ElemGen, 1.0, 

LInt2LReal( max DIV size )); 

CharVal:= LInt2LReal(Rnd.Int(ElemGen)) 

END; 

WHILE num <= rank DO 
IF mult <= 0 THEN 

Set(a, num, num, CharVal); 

IF decimal THEN 

CharVal:= CharVal + Rnd.LongReal(ElemGen) 

ELSE 

CharVal:= CharVal + LInt2LReal(Rnd.Int(ElemGen)) 

END; 

IF NOT List.AtLast(MultList) THEN 
mult:= Cali.Cur(MultList); 

List.Next(MultList) 

ELSE 

mult:= 1 

END 

ELSE 

Set(a, num, num, Elem(a,num-1,num-l)) 

END; 

INC(num); 

DEC(mult) 

END 

END GetRndDiagonal; 


PROCEDURE RndMixIndices(list: Cali.tCali; max: LONGCARD); 



B .22 Implementierungsmodul ’Rema 1 


237 


(* Diese Prozedur liefert in ’list’ die Zahlen von 1 bis ’max’ 
in zufaelliger Reihenfolge. *) 

VAR 

MixArray: Frag.tFrag; 

(* Feld zum Mischen der Zeilenindizes *) 
i: LONGCARD; (* Zaehler *) 

SwapCount: LONGCARD; 

(* Anzahl der Vertauschungen von Elementen von 
’MixArray’, die zur Produktion von Unordnung 
durchzufuehren sind *) 
hilf: tPOINTER; 

(* Hilfsvar. zum Vertauschen von Elementen in 
’MixArray’ *) 
hilf2: pCard; 
il, i2: LONGCARD; 

(* Indizes der zu vertauschenden Elemente in 
’MixArray’ *) 

BEGIN 

Frag.Use(MixArray, CardldO , 1, max) ; 

Rnd.Range(IntGen, 1.0, LInt2LReal(max) ); 

SwapCount:= 3 * max; 

FOR i:= 1 TO max DO 

Frag.SetItem(MixArray, i, tPOINTER(NewCard(i))) 

END; 

Frag.AddRef(MixArray, TRUE); 

FOR i:= 1 TO SwapCount DO 
il:= Rnd.Int(IntGen); 
i2:= Rnd.Int(IntGen); 
hilf:= Frag.GetItem(MixArray, il); 

Frag.SetItem(MixArray, il, Frag.GetItem(MixArray, i2)); 
Frag.SetItem(MixArray, i2, hilf) 

END; 

Frag.AddRef(MixArray, FALSE); 

List.Empty(list); 

FOR i:= 1 TO max DO 

hilf2:= pCard( Frag.GetItem(MixArray, i) ); 

Cali.InsertBehind(list, hilf2“) 

END; 

Frag.DontUse(MixArray) 

END RndMixIndices; 

PROCEDURE GetRndlnverse(s,si: tMat; max: LONGREAL); 

(* In ’s’ wird eine zufaellige invertierbare Matrix und in ’si’ 
ihre Inverse zurueckgegeben. Die Elemente beider Matrizen sind 
ganzzahlig und ihr maximaler Betrag ist ’max’. *) 

VAR 

MixedList: Cali.tCali; 

(* Liste der gemischten Zeilenindizes *) 

AddedList: Inli.tlnli; 

(* Liste der zueinander addierten / voneinander 
subtrahierten Zeilen in ’s’; die gleichen 
Zeilenoperationen werden in umgekehrter 
Reihenfolge verwendet, um ’si’ zu 
berechnen; Bedeutung der Listenelemente: 

1. : Index der Zeile die addiert wird, 

2. : Index der Zeile zu der addiert wird, 

3. : verwendetes Vorzeichen 

*) 

Inl, In2: LONGCARD; 

(* zu kombinierende Zeilen bzw. Spalten *) 

In: LONGCARD; 

(* aktueller Index beim Verknuepfen von Zeilen 
bzw. Spalten *) 

MaxElem: LONGREAL; 
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(* maximaler Betrag eines Matrizenelements *) 
sign: LONGREAL; 

(* -1.0 : Zeilen in ’s’ werden voneinander abgezogen; 

1.0 : Zeilen in ’s’ werden zueinander addiert *) 
size: LONGCARD; 

(* Groesse von ’s’ und ’si’ *) 

BEGIN 

Cali.Use(MixedList); 

Inli.Use(AddedList); 

size:= Rows(s); (* Die Matrizen sind quadratisch. *) 

(* berechne ’s’: *) 

Unit(s); 

MaxElem:= 0.0; 
sign:= 1.0; 

REPEAT 

RndMixIndices(MixedList, size); 

List.First(MixedList); 

REPEAT 

Inl:= LCard2Card( Cali.OutCur(MixedList) ); 

In2:= LCard2Card( Cali.OutCur(MixedList) ); 

FÜR In:= 1 TO size DO 
Set(s, In2, In, 

Elem(s, In2, In) 

+ Elem(s, Inl, In) * sign 

); 

MaxElem:= Func.MaxRe al( 

MaxElem, ABS( Elem(s, In2, In) ) 

) 

END; 

Inli.InsertBefore(AddedList, 

LInt2Int( LReal2LInt(sign) ) 

); 

Inli.InsertBefore(AddedList, In2); 

Inli.InsertBefore(AddedList, Inl); 
sign:= LInt2LReal(Rnd.Int(SignGen)) * 2.0 - 1.0 
(* ergibt 1.0 oder -1.0 (!) *) 

UNTIL List.Count(MixedList) <= 1 
UNTIL MaxElem > (max / 2.0); 

(* berechne ’si’: *) 

List.First(AddedList); 

Unit(si); 

WHILE List.Count(AddedList) > 0 DO 
Inl:= Inli.OutCur(AddedList); 

In2:= Inli.OutCur(AddedList); 

sign:= LInt2LReal( Inli.OutCur(AddedList) ); 

FOR In:= 1 TO size DO 

Set(si, In2, In, Elem(si, In2, In) 

+ Elem(si, Inl, In) * (- sign) 

) 

END 

END; 

List.DontUse(MixedList); 

List.DontUse(AddedList) 

END GetRndlnverse; 

PROCEDURE Testinverse(a,b: tMat); 

(* Diese Prozedur dient zur Fehlersuche. 

Falls ’a’ nicht die Inverse von ’b’ ist, wird eine Fehlermeldung 
ausgegeben. *) 

VAR 

res: tMat; 
i,j: LONGCARD; 
fehler: BOOLEAN; 
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input: ARRAY [1..2] OF CHAR; 

BEGIN 

Use(res, Rows(a), Columns(b)); 

Mult(a, b, res); 

FÜR i:= 1 TD Rows(res) DO 

FÜR j:= 1 TO Columns(res) DO 
IF i = j THEN 

fehler:= Elem(res, i, j) # 1.0 

ELSE 

fehler:= Elem(res, i, j) # 0.0 

END; 

IF fehler THEN 

WriteStringO 1 *** Mat. Testinverse : ") ; WriteLn; 
WriteStringO 1 *** Matrizen nicht invers"); 
WriteStringO 1 zueinander"); WriteLn; 
WriteStringO 1 *** sollte Einheitsmatrix sein:"); 
WriteLn; 

Write(res); 

WriteStringO 1 <RETURN> ..."); ReadString(input); 
Write(a); 

WriteStringO 1 <RETURN> ..."); ReadString(input); 
Write(b); 

HALT; 

RETURN 

END 

END 

END; 

WriteStringO'*** Mat. Testinverse : OK"); 

WriteLn 

END Testinverse; 

PROCEDURE Randomize(mat: tMat); 

VAR 

a, s, si, sa: tMat; 

(* a : zufaellig zu erzeugende Diagonalmatrix 
s : zufaellige invertierbare Matrix 
si: Inverse von ’s’ 
sa:= s * a 

Bedingungen fuer die Matrizengroesse (Indizes: i,j,k): 

- Voraussetzungen: mat: i*j, a: i*j 

- sa:= s * a ==> s: k*i, sa: k*j 

- mat:= sa * si ==> si: j*j, k=i 

- si Inverse von s (damit ’mat’ und ’a’ die gleichen 
Eigenwerte besitzen) ==> i=j 

*) 

size: LONGCARD; 

(* Anzahl der Zeilen und Spalten der zu verarbeitenden 
Matrizen *) 

BEGIN 

IF Rows(mat) # Columns(mat) THEN 
WriteLn; 

WriteStringO 1 *** Mat. Randomize :") ; WriteLn; 
WriteStringO 1 *** Die zu erzeugende Matrix ist ") ; 
WriteStringO'nicht quadratisch."); WriteLn; 

HALT 

END; 

size:= Rows(mat); 

Use(a,size,size); Use(s,size,size); 

Use(sa,size,size); Use(si,size,size); 

(* erzeuge zufaellige Diagonalmatrix ’a’: *) 

GetRndDiagonal(a, mat“.rank, mat~.mult, 

Func.MaxLCard(size + 10, size * 2), 
mat“.longreal); 
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mat*.det:= Trace(a); 

(* berechne zufaellige invertierbare Matrix ’s’ sowie deren 
Inverse ’si’ : *) 

GetRndInverse(s, si, RndMixSize); 

(* zur Fehlersuche: *) 

Testlnverse(s, si); 

(*mat : = s * a * s i 

(’mat’ hat dieselben Eigenwerte wie ’a’): *) 

Mult(s,a,sa); 

Mult(sa,si,mat); 

DontUse(a); DontUse(s); DontUse(si); DontUse(sa) 

END Randomize; 

PROCEDURE Det(mat: tMat): LONGREAL; 

BEGIN 

RETURN mat ~.det 
END Det; 

PROCEDURE Write(mat: tMat); 

VAR 

row,col: LONGCARD; 
i, j: LONGCARD; 

BEGIN 

row:= Rows(mat); 
col:= Columns(mat); 

WriteStringC'Zeilen: "); WriteLn; 

WriteStringC ") ; WriteCard(row,0) ; WriteLn; 
WriteStringC'Spalten: "); WriteLn; 

WriteStringC ") ; WriteCard(col,0) ; WriteLn; 
WriteStringO'Rang: "); WriteLn; 

WriteStringC ") ; WriteCard(mat* .rank, 0); WriteLn; 
WriteStringCDeterminante: "); WriteLn; 

WriteStringC ") ; WriteReal (mat* . det, 12,4) ; WriteLn; 
WriteStringC'Nachkommastellen (1: ja, 0: nein): "); 

WriteLn; WriteStringC "); 

IF mat*.longreal THEN 
WriteCard(l,0) 

ELSE 

WriteCard(0,0) 

END; 

WriteLn; 

WriteStringC'Vielfachheiten ( >1 ) von Eigenwerten"); 
WriteStringC (Anzahl, Wert 1, Wert 2, ...):"); 

WriteLn; 

WriteCard(List.Count(mat*.mult) - 1, 5); 

List.First(mat*.mult); 

WHILE NOT List.AtLast(mat*.mult) DO 
WriteCard(Cali.Cur(mat*.mult),5); 

List.Next(mat*.mult) 

END; 

WriteLn; 

F0R i:= 1 T0 row DO 

F0R j:= 1 TG col DO 

WriteReal(Eiern(mat,i,j), 12, 4); 

WriteStringC ") 

END; 

IF col<=MaxIoRow THEN WriteLn END 

END 

END Write; 
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PROCEDURE WriteF(VAR f: Sys.File; mat: tMat); 

VAR 

row,col: LONGCARD; 
i, j: LONGCARD; 

BEGIN 

row:= Rows(mat); 
col:= Columns(mat); 

Sys.WriteString(f, "Zeilen: "); Sys.WriteLn(f); 

Sys.WriteString(f," "); 

Sys.WriteCard(f, row, 0); Sys.WriteLn(f); 

Sys.WriteStringCf, "Spalten: "); Sys.WriteLn(f); 

Sys.WriteString(f," "); 

Sys.WriteCard(f, col, 0); Sys.WriteLn(f); 

Sys.WriteStringCf, "Rang: "); Sys.WriteLn(f); 

Sys.WriteStringCf," "); 

Sys.WriteCardCf, mat*.rank, 0); Sys.WriteLnCf); 

Sys.WriteStringCf, "Determinante: "); Sys.WriteLnCf); 

Sys.WriteStringCf, " "); 

Sys.WriteRealCf, mat*.det,12,4); Sys.WriteLnCf); 

Sys.WriteStringCf, "Nachkommastellen (1: ja, 0: nein): "); 
Sys.WriteLnCf); Sys.WriteStringCf," "); 

IF mat*.longreal THEN 

Sys.WriteCardCf, 1, 0) 

ELSE 

Sys.WriteCardCf, 0, 0) 

END; 

Sys.WriteLnCf); 

Sys.WriteStringCf, 

"Vielfachheiten (groesser als 1) von Eigenwerten"); 

Sys.WriteStringCf, " (Anzahl, Wert 1, Wert 2, ...):"); 

Sys.WriteLnCf); 

Sys.WriteCardCf, List.Count(mat*.mult) - 1, 5); 

List.First(mat*.mult); 

WHILE NOT List.AtLast(mat*.mult) DO 

Sys.WriteCardCf, LCard2Card( Cali.Cur(mat*.mult) ), 5); 
List.Next(mat*.mult) 

END; 

Sys.WriteLnCf); 

FOR i:= 1 TO row DO 

FOR j:= 1 TO col DO 

Sys.WriteReal(f, ElemCmat,i,j), 12, 4); 

IF j < col THEN 

Sys.WriteStringCf, " ") 

END 

END; 

IF col<=MaxIoRow THEN Sys.WriteLnCf) END 

END 

END WriteF; 

PROCEDURE Read(mat: tMat); 

VAR 

row,col: LONGCARD; 
i, j : LONGCARD; 

hilf : LONGCARD; 

num : LONGREAL; 

BEGIN 

ReadLn; ReadLCard(row); 

ReadLn; ReadLCard(col); 

SetSizeCmat, row, col); 

ReadLn; ReadLCardCmat*.rank); 
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ReadLn; ReadLReal(mat“.det); 

ReadLn; ReadLCard(hilf); 
mat“.longreal:= hilf = 1; 

ReadLn; ReadLn; 

ReadLCard(hilf); 

FÜR i:= 1 TO hilf DO 
ReadLCard(j); 

Cali.InsertBefore(mat“.mult, j) 

END; 

ReadLn; 

FOR i:= 1 TO row DO 

FOR j:= 1 TO col DO 
ReadLReal(num); 

Set(mat,i,j,num) 

END 

END 

END Read; 

PROCEDURE ReadF(VAR f: Sys.File; mat: tMat); 

VAR 

row,col: LONGCARD; 

i, j : LONGCARD; 

hilf: LONGCARD; 

num : LONGREAL; 

dumrny : ARRAY [1..80] OF CHAR; 

BEGIN 

Sys.ReadLn(f); Sys.ReadLCard(f,row); 

Sys.ReadLn(f); Sys.ReadLCard(f,col); 

SetSize(mat, row, col); 

Sys.ReadLn(f); Sys.ReadLCard(f,mat“.rank); 

Sys.ReadLn(f); Sys.ReadReal(f,mat“.det); 

Sys.ReadLn(f); Sys.ReadLCard(f,hilf); 
mat“.longreal:= hilf = 1; 

Sys.ReadLn(f); 

Sys.ReadLCard(f, hilf); 

FOR i:= 1 TO hilf DO 

Sys.ReadLCard(f, j); 

Cali.InsertBefore(mat“.mult,j) 

END; 

FOR i:= 1 TO row DO 

FOR j:= 1 TO col DO 

Sys.ReadReal(f,num); 

Set(mat, i, j, num) 

END 

END 

END ReadF; 

PROCEDURE CheckEqualSize(a,b: tMat; proc: ARRAY OF CHAR); 

(* Es wird eine Fehlermeldung ausgegeben, falls die Matrizen 
’a’ und ’b’ nicht die gleiche Groesse besitzen. *) 

BEGIN 

IF (Rows(a) # Rows(b)) OR (Columns(a) # Columns(b)) THEN 
Error(proc, 

"Die Matrizen sind verschieden gross."); 

END 

END CheckEqualSize; 

PROCEDURE Add(mat1, mat2, res: tMat); 

VAR 

i,j: LONGCARD; 
hilf: tMat; 

RowsMatl, ColumnsMatl: LONGCARD; 

BEGIN 
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Use(hilf,Rows(res),Columns(res)); 

CheckEqualSize(matl, mat2, "Mat.Add"); 

CheckEqualSize(mat2, res, "Mat.Add"); 

RowsMatl:= Rows(matl); ColumnsMatl:= Columns(matl); 

FÜR i:= 1 TO RowsMatl DO 

FOR j:= 1 TO ColumnsMatl DO 

Set(hilf, i, j, Eiern(matl, i, j) + Eiern(mat2, i, j)) 

END 

END; 

(* Alle Schleifendurchlaeufe werden parallel durchgefuehrt: *) 
Pram.Prozessoren(RowsMatl * ColumnsMatl); 

Pram.Schritte(1); 

Assign(hilf,res); 

DontUse(hilf) 

END Add; 

PROCEDURE Sub(matl, mat2, res: tMat); 

VAR 

i,j: LONGCARD; 
hilf: tMat; 

RowsMatl, ColumnsMatl: LONGCARD; 

BEGIN 

Use(hilf,Rows(res),Columns(res)); 

CheckEqualSize(matl, mat2, "Mat.Sub"); 

CheckEqualSize(mat2, res, "Mat.Sub"); 

RowsMatl:= Rows(matl); ColumnsMatl:= Columns(matl); 

FOR i:= 1 TO RowsMatl DO 

FOR j:= 1 TO ColumnsMatl DO 

Set(hilf, i, j, Eiern(matl, i, j) - Eiern(mat2, i, j)) 

END 

END; 

(* Alle Schleifendurchlaeufe werden parallel durchgefuehrt: *) 
Pram.Prozessoren(RowsMatl * ColumnsMatl); 

Pram.Schritte(1); 

Assign(hilf,res); 

DontUse(hilf) 

END Sub; 

(* a*b, b*c, a*c *) 

PROCEDURE Mult(matl,mat2,res: tMat); 

VAR 

i,j,k: LONGCARD; 
hilf: tMat; 

RowsRes, ColumnsRes, ColumnsMatl: LONGCARD; 

AddList: Reli.tReli; 

BEGIN 

Reli.Use(AddList); 

Use(hilf, Rows(res), Columns(res)); 

IF (Columns(matl) # Rows(mat2)) OR 
(Rows(matl) # Rows(res)) OR 
(Columns(mat2) # Columns(res)) 

THEN 

Error("Mat.Mult", 

"Die Groessen der Matrizen passen nicht zusammen.") 

END; 

RowsRes:= Rows(res); ColumnsRes:= Columns(res); 

ColumnsMatl:= Columns(matl); 

Pram.Parallelstart("Rema.Mult"); 

FOR i:= 1 TO RowsRes DO 

Pram.Parallelstart("Rema.Mult:Zeile"); 

FOR j:= 1 TO ColumnsRes DO 
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List.Empty(AddList); 

FÜR k:= 1 TO ColumnsMatl DO 

Reli.InsertBehind(AddList, 

Eiern(matl, i, k)*Elem(mat2, k, j) 

); 

END; 

(* Die Durchlaeufe der Schleife werden parallel durchge- 
fuehrt: *) 

Pram.Prozessoren! ColumnsMatl ); 

Pram.Schritte! 1 ); 

Set! hilf, i, j, Pram.AddList!AddList) ); 

Pram.NaechsterBlock!"Rema.Mult:Zeile"); 

END; 

Pram.ParallelEnde!"Rema.Mult:Zeile"); 

Pram.NaechsterBlock("Rema.Mult"); 

END; 

Pram.ParallelEnde!"Rema.Mult"); 

AssignQiilf ,res) ; 

DontUse(hilf); 

List.DontUse!AddList) 

END Mult; 

PROCEDURE CreateMult!matl, mat2: tMat): tMat; 

VAR res: tMat; 

BEGIN 

Use!res, Rows!matl), Columns(mat2)); 

Mult!matl, mat2, res); 

RETURN res 
END CreateMult; 

PROCEDURE ScalMult!num: LONGREAL; matl,res: tMat); 

VAR 

i,j: LONGCARD; 

RowsRes, ColumnsRes: LONGCARD; 

BEGIN 

RowsRes:= Rows!res); ColumnsRes:= Columns(res); 

FOR i:= 1 TO RowsRes DO 

FOR j:= 1 TO ColumnsRes DO 

Set(res,i,j,num*Elem(matl,i,j)) 

END 

END; 

(* Alle Schleifendurchlaeufe werden parallel durchgefuehrt: *) 
Pram.Prozessoren! RowsRes * ColumnsRes ); 

Pram.Schritte! 1 ) 

END ScalMult; 

PROCEDURE Trace(mat: tMat): LONGREAL; 

!* Das Funktionsergebnis ist die Summe der Elemente der 
Hauptdiagonalen (Spur) der angegebenen Matrix. *) 

VAR 

res: LONGREAL; (* Funktionsergebnis *) 
i: LONGCARD; 

size: LONGCARD; (* Groesse von ’mat’ *) 

AddList: Reli.tReli; 

BEGIN 

Reli.Use(AddList); 

size:= Func.MinLCard! Rows(mat), Columns(mat) ); 

FOR i:= 1 TO size DO 

Reli.InsertBehind! AddList, Elem(mat, i, i) ) 
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END; 

res:= Pram.AddList(AddList); 

List.DontUse(AddList); 

RETURN res 
END Trace; 

BEGIN 

(* initialisiere Zufallsgeneratoren: *) 
Rnd.Use(ElemGen); 

Rnd.Use(IntGen); 

Rnd.Use(SignGen); 

Rnd.Range(SignGen, 0.0, 1.0); 

MatId:= Type.New(TSIZE(tMatRecord)); 
Type.SetName(Matld, "Rema.tMat"); 

Type.SetNewProc(Matld, RemaNewI); 

Type.SetDelProc(Matld, RemaDell) 

END Rema. 


B.23 Definitionsmodul ’Rnd‘ 


DEFINITION MODULE Rnd; 

(* Zufallszahlengeneratoren 

Mit Hilfe der linearen Kongruenzmethode werden gleich- 
oder normalverteilte Zufallszahlen erzeugt. 

Das Modul verwaltet die Erzeugung von Zufallszahlen objekt¬ 
orientiert. D. h. es koennen Zufallszahlengeneratoren unter¬ 
schiedlicher Charakterististiken vereinbart und nebenein¬ 
ander benutzt werden. 

*) 

IMPORT SysMath, Func, Sys; 

TYPE tGen; (* Dieser Typ muss fuer eine Variable vom Typ 
’Zufallsgenerator’ benutzt werden. *) 

PROCEDURE Use(VAR gen: tGen); 

(* Bevor ein Zufallsgenerator benutzt werden soll, muss ’Use’ 
fuer die entsprechende Variable aufgerufen werden. *) 

PROCEDURE DontUse(VAR gen: tGen); 

(* Falls ein Zufallsgenerator nicht mehr benutzt werden soll, 
insbesondere, wenn der aktuelle Parameter fuer ’gen’ eine 
lokale Variable ist, muss ’DontUse’ fuer diese Variable 
aufgerufen werden. *) 

PROCEDURE Start(gen: tGen; num: LONGCARD); 

(* ’num’ wird als neuer Startwert fuer den Generator ’gen’ 
verwendet. 

Fuer alle Generatoren werden Startwerte voreingestellt, 
um neue Folgen von Zufallszahlen zu erhalten sollte jedoch 
zumindest fuer den ersten mit ’Use’ angelegten Generator 
ein jeweils anderer Startwert festgelegt werden. 

’num’ muss ein Wert im Bereich von 0 bis 199017 sein. 

*) 



246 


B .24 Implementierungsmodul ’Rnd‘ 


PROCEDURE Range(gen: tGen; bot.top: LONGREAL); 

(* F"ur ’gen’ wird der Bereich festgelegt, in dem die Zufalls¬ 
zahlen liegen sollen. Voreingestellt ist ’bot=0’ und ’top=l’. 
Durch ganzzahlige Zufallszahlen koennen diese Randwerte 
erreicht werden. 

Die Grenzen duerfen auch nachtraeglich veraendert werden, 
ohne dass dies zu Problemen im Modul fuehrt. 

*) 

PROCEDURE Int(gen: tGen):L0NGINT; 

(* Mit Hilfe des Generators ’gen’ wird als Funktionswert eine 

Zufallszahl entsprechend der vorher mit den anderen Funktionen 
festgelegten Parameter erzeugt. 

Die Zahlen sind im mit 'Range’ festgelegten Bereich gleichmaessig 
verteilt. 

*) 

PROCEDURE LongReal(gen: tGen): LONGREAL; 

(* analog 'Int', jedoch wird eine Zahl mit Nachkommastellen 
erzeugt *) 

PROCEDURE St(gen: tGen; num: LONGREAL); 

(* Fuer den Generator ’gen’ wird ’num’ als Standardabweichung 
fuer die Erzeugung von Zufallszahlen mit Hilfe von ’Norm’ 
festgelegt. Voreingestellt ist 1. 

*) 

PROCEDURE Mid(gen: tGen; num: LONGREAL); 

(* Fuer den Generator ’gen’ wird ’num’ als Mittelwert fuer die 
Erzeugung von Zufallszahlen mit Hilfe von ’Norm’ festgelegt. 
Voreingestellt ist 0. 

*) 

PROCEDURE Norm(gen: tGen): LONGREAL; 

(* Das Funktionsergebnis ist eine mit Hilfe von ’gen’ erzeugte 
Zufallszahl entsprechend der vorher mit ’St’ und ’Mid’ 
eingestellten Parameter. 

*) 

END Rnd. 


B.24 Implementierungsmodul ’Rnd‘ 


IMPLEMENTATION MODULE Rnd; 

(* Erzeugung von Zufallszahlen 

( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT TSIZE; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

FROM InOut IMPORT WriteLn, WriteString; 

IMPORT SysMath, Func, Sys; 

FROM SysMath IMPORT sqrt, cos, ln, entier, real; 

CONST 

RndInfoFile= "rnd.inf"; 

(* Datei mit Anfangszahl fuer Zufallsgenerator *) 
(* Konstanten zur Erzeugung von Zufallszahlen 
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(Es muss mit LONGREAL-Zahlen gerechnet werden, 
da der Wertebereich von ’LONGCARD’ nicht 
ausreicht) : *) 
a= 24298.0; 
c— 99991.0; 
m= 199017.0; 
pi= 3.1415926; 

(* Konstanten zur Voreinstellung von Generatorparametern: *) 
PreX= 42.0; (* Dieser Wert wird als Startwert fuer das 
Modul benutzt, falls ’RndlnfoFile’ nicht 
existiert. *) 

PreNewX =7.0; (* Um diesen Wert wird der Startwert fuer den 
letzten neu angelegten Generator inkre- 
mentiert (modulo ’m’), um den Startwert fuer 
den naechsten Generator voreinzustellen. *) 
PreNewNextX = 11.0; 

(* Um diesen Wert wird der aus ’RndlnfoFile’ gelesene 
Startwert inkrementiert (modulo ’m’) um den Wert 
fuer den naechsten Programmstart zu erhalten. *) 
PreHi= 1.0; (* untere Grenze *) 

PreLo= 0.0; (* obere Grenze *) 

PreMid =0.0; (* Mittelwert *) 

PreSt= 1.0; (* Standardabweichung *) 


TYPE 

tGen = POINTER T0 tGenRec; 
tGenRec = RECORD (* einzelner Generator *) 
x: L0NGREAL; 

(* letzte erzeugte Zufallszahl *) 
lo,hi: L0NGREAL; 

(* untere bzw. obere Grenze des Bereichs, 
in dem die Zahlen liegen sollen *) 
mid, st: L0NGREAL; 

(* Mittelwert, Varianz *) 

END; 

VAR 

NextX: L0NGREAL; (* naechster fuer einen Generator zur 

Voreinstellung zu benutzt Startwert *) 

PR0CEDURE Use(VAR gen: tGen); 

BEGIN 

ALL0CATE(gen, TSIZE(tGenRec)); 

WITH gen" DO 


X 

= NextX; 

lo 

= PreLo; 

hi 

= PreHi; 

mid 

= PreMid 

st 

= PreSt 


END; 

NextX:= Func.ModReal( NextX + PreNewX , m ) 

END Use; 

PR0CEDURE DontUse(VAR gen: tGen); 

BEGIN 

DEALLOCATE(gen,TSIZE(tGenRec)); 
gen:= NIL 
END DontUse; 

PR0CEDURE Start(gen: tGen; num: L0NGCARD); 

BEGIN 

gen~.x:= real(num); 

NextX:= Func.ModReal( real(num) + PreNewX , m ) 
END Start; 
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PROCEDURE Range(gen: tGen; bot.top: LONGREAL); 

BEGIN 

IF bot >= top THEN 
WriteLn; 

WriteStringO'*** Rnd.Range:"); WriteLn; 
WriteStringO'*** Die untere Intervallgrenze ist "); 
WriteLn; 

WriteStringO'groesser als die obere."); 

WriteLn; 

HALT 

END; 

gen“.lo:= bot; 
gen“.hi:= top 
END Range; 

PROCEDURE New(gen: tGen); 

BEGIN 

gen“.x:= Func.ModReal( a * gen“.x + c , m ) 

END New; 

PROCEDURE Int(gen: tGen): LONGINT; 

BEGIN 

New(gen); 

RETURN entier( ( gen“.x / m ) 

* (gen“.hi + 1.0 - gen“.lo) 

+ gen“.Io 

) 

END Int; 

PROCEDURE LongReal(gen: tGen): LONGREAL; 

BEGIN 

New(gen); 

RETURN ( gen“.x / m ) 

* (gen“.hi-gen“.lo) 

+ gen“.lo 
END LongReal; 

PROCEDURE St(gen: tGen; num: LONGREAL); 

BEGIN 

gen“.st:= num 
END St; 

PROCEDURE Mid(gen: tGen; num: LONGREAL); 

BEGIN 

gen“.mid:= num 
END Mid; 

PROCEDURE Norm(gen: tGen): LONGREAL; 

BEGIN 

RETURN gen“.st*( 

sqrt( -2.0*ln( LongReal(gen) ) ) 

* cos( 2.0*pi*LongReal(gen) ) 

) + gen“.mid 

END Norm; 

VAR f: Sys.File; 

BEGIN 

IF Sys.Exist(RndlnfoFile) THEN 
Sys.OpenRead(f,RndlnfoFile); 

Sys.ReadReal(f,NextX); 

Sys.Close(f) 

ELSE 

NextX:= PreX 


END; 
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NextX:= Func.ModReal( NextX + PreNewNextX, m ); 
Sys.QpenWrite(f,RndInfoFile); 

Sys.WriteReal(f,NextX,8,0); 

Sys.Close(f) 

END Rnd. 


B.25 Definitionsmodul ’Simptype‘ 


DEFINITION MODULE Simptype; (* SIMPle TYPEs *) 

(* einfache Datentypen fuer das Modul 'Type’ 

’Simptype’ definiert die Typen ’LONGCARD’, ’LONGINT’ und 
’LONGREAL’ fuer das Modul 'Type’ 


*) 

IMPORT Sys, Type; 

FROM Sys IMPORT tPOINTER; 

TYPE pCard = POINTER TO LONGCARD; 

plnt = POINTER TO LONGINT; 

pReal = POINTER TO REAL; 

pPoint = POINTER TO tPOINTER; 

PROCEDURE CardldO : Type. Id; 

(* Funktionsergebnis ist der Typindetifikator fuer ’LONGCARD’ *) 
PROCEDURE NewCard(val: LONGCARD): pCard; 

(* Funktionsergebnis ist ein Zeiger auf eine Zahl vom Typ LONGCARD 
mit dem Wert ’val’ *) 

PROCEDURE DelCard(VAR val: pCard); 

(* Der Speicherbereich fuer die Zahl vom Typ LONGCARD, auf die ’val’ 
zeigt, wird freigegeben. *) 

PROCEDURE IntId(): Type.Id; 

(* ... analog ’Cardld’, jedoch fuer LONGINT *) 

PROCEDURE Newlnt(val: LONGINT): plnt; 

(* ... analog ’NewCard’, jedoch fuer LONGINT *) 

PROCEDURE Dellnt(VAR val: plnt); 

(* ... analog ’DelCard’, jedoch fuer LONGINT *) 

PROCEDURE RealldO : Type.Id; 

(* ... analog ’Cardld’, jedoch fuer LONGREAL *) 

PROCEDURE NewReaKval: LONGREAL): pReal; 

(* ... analog ’NewCard’, jedoch fuer LONGREAL *) 

PROCEDURE DelReal(VAR val: pReal); 

(* ... analog ’DelCard’, jedoch fuer LONGREAL *) 

PROCEDURE PointldO : Type. Id; 

(* ... analog ’Cardld’, jedoch fuer pPoint *) 

PROCEDURE NewPoint(val: pPoint): pPoint; 

(* ... analog ’NewCard’, jedoch fuer pPoint *) 
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PROCEDURE DelPoint(VAR val: pPoint); 

(* ... analog ’DelCard’, jedoch fuer pPoint *) 

END Simptype. 


B.26 Implementierungsmodul ’Simptype‘ 


IMPLEMENTATION MODULE Simptype; 

(* einfache Datentypen fuer das Modul 'Type’ 

( Erklaerungen im Definitionsmodul ) 

*) 

FROM SYSTEM IMPORT TSIZE; 

IMPORT Sys, Type; 

FROM Sys IMPORT tPOINTER; 

VAR vCardld, vlntld, vRealld, vPointld: Type.Id; 

(* Typidentifikatoren fuer Modul 'Type’ *) 

PROCEDURE CardldQ : Type. Id; 

BEGIN 

RETURN vCardld 
END Cardld; 

PROCEDURE NewCard(val: LONGCARD): pCard; 

VAR res: pCard; 

BEGIN 

res:= Type.NewI(vCardld); 
res':= val; 

RETURN res 
END NewCard; 

PROCEDURE DelCard(VAR val: pCard); 

BEGIN 

Type.Dell(vCardld, val) 

END DelCard; 

PROCEDURE IntldO : Type.Id; 

BEGIN 

RETURN vlntld 
END IntId; 

PROCEDURE Newlnt(val: LONGINT): plnt; 

VAR res: plnt; 

BEGIN 

res:= Type.NewI(vlntld); 
res*:= val; 

RETURN res 
END Newlnt; 

PROCEDURE Dellnt(VAR val: plnt); 

BEGIN 

Type.Dell(vlntld, val) 

END Dellnt; 

PROCEDURE RealldQ : Type. Id; 

BEGIN 


RETURN vRealld 
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END Realld; 

PROCEDURE NewRealCval: LONGREAL): pReal; 
VAR res: pReal; 

BEGIN 

res:= Type.NewI(vRealld); 
res“:= val; 

RETURN res 
END NewReal; 

PROCEDURE DelRealCVAR val: pReal); 

BEGIN 

Type.Dell(vRealld, val) 

END DelReal; 

PROCEDURE PointldO : Type. Id; 

BEGIN 

RETURN vPointld 
END Pointld; 


PROCEDURE NewPoint(val: pPoint): pPoint; 

VAR res: pPoint; 

BEGIN 

res:= Type.NewI(vPointld); 
res“:= val; 

RETURN res 
END NewPoint; 

PROCEDURE DelPoint(VAR val: pPoint); 

BEGIN 

Type.Dell(vPointld, val) 

END DelPoint; 

(* Operationsprozeduren fuer Modul 'Type’: *) 

PROCEDURE EquCard(ahilf,bhilf:tPOINTER): BOOLEAN; 
VAR 

a, b: pCard; 

BEGIN 

a:= ahilf; b:= bhilf; 

RETURN a“ = b“ 

END EquCard; 

PROCEDURE OrdCard(ahilf,bhilf: tPOINTER): BOOLEAN; 
VAR 

a, b: pCard; 

BEGIN 

a:= ahilf; b:= bhilf; 

RETURN a“ < b“ 

END OrdCard; 

PROCEDURE Equlnt(a,b: tPOINTER): BOOLEAN; 

VAR A, B: plnt; 

BEGIN 

A:= a; B:= b; 

RETURN A“ = B“ 

END Equlnt; 

PROCEDURE Ordlnt(a,b: tPOINTER): BOOLEAN; 

VAR A, B: plnt; 

BEGIN 

A:= a; B:= b; 

RETURN A“ < B“ 

END Ordlnt; 
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PROCEDURE EquReal(a,b: tPOINTER): BOOLEAN; 
VAR A,B: pReal; 

BEGIN 

A:= a; B:= b; 

RETURN A~ = B~ 

END EquReal; 

PROCEDURE OrdReal(a,b: tPOINTER): BOOLEAN; 
VAR A,B: pReal; 

BEGIN 

A:= a; B:= b; 

RETURN A~ < B~ 

END OrdReal; 

PROCEDURE EquPoint(a,b: tPOINTER): BOOLEAN; 
VAR A,B: pPoint; 

BEGIN 

A:= a; B:= b; 

RETURN A~ = B~ 

END EquPoint; 

BEGIN 

vCardld:= Type.New(TSIZE(LONGCARD)); 
Type.SetName(vCardld,"LONGCARD"); 

Type.SetEquProc(vCardld,EquCard); 

Type.SetOrdProc(vCardld,OrdCard); 

vlntld:= Type.New(TSIZE(LONGINT)); 

Type.SetName(vlntld,"LONGINT"); 

Type.SetEquProc(vIntId,EquInt); 

Type.SetOrdProc(vlntld,Ordlnt); 

vRealld:= Type.New(TSIZE(LONGREAL)); 
Type.SetName(vRealld,"LONGREAL"); 

Type.SetEquProc(vRealld,EquReal); 

Type.SetOrdProc(vRealld,OrdReal); 

vPointld:= Type.New(TSIZE(pPoint)); 

Type.SetName(vPointld,"pPoint"); 

Type.SetEquProc(vPointld,EquPoint) 

END Simptype. 


B.27 Definitionsmodul ’Str 4 


DEFINITION MODULE Str; 

(* Handhabung von Zeichenketten 

Falls nicht anders angegeben wird 0 als erster Index 
innerhalb einer Zeichenkette betrachtet. 

Ein Null-Byte (OC) wird als einer Zeichenkette 
betrachtet. 

Zur Steigerung der Effizienz sind bei allen Prozeduren auch 
die Eingabeparameter als Variablenparameter deklariert. 


IMPORT Func; 


CONST 
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MaxString=80; 


TYPE 

tStr= ARRAY [0..MaxString-1] OF CHAR; 

PROCEDURE Empty(VAR str: ARRAY OF CHAR); 

(* ’str’ wird geloescht (mit OC gefuellt). *) 

PROCEDURE Assign(VAR dst: ARRAY OF CHAR; src: ARRAY OF CHAR); 

(* ’dst’ wird an ’src’ zugewiesen 

(ggf. wird ’dst’ mit OC aufgefuellt). 

*) 

PROCEDURE Append(VAR dest: ARRAY OF CHAR; 

suffix: ARRAY OF CHAR); 

(* ’suffix’ wird an ’dest’ angehaengt, soweit in ’dest’ 
noch Platz ist. 

*) 

PROCEDURE Equal(VAR x: ARRAY OF CHAR; 

y: ARRAY OF CHAR): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls die Zeichenketten 
’x’ und ’y’ gleich sind, sonst FALSE. Leerstellen sind 
relevant! Angehaengte Null-Bytes werden nicht beachtet. 

*) 

PROCEDURE Ordered(VAR x: ARRAY OF CHAR; 

y: ARRAY OF CHAR): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls ’a’ nach lexikalischer 
Ordnung kleiner als ’b’ ist. Andernfalls ist das 
Funktionsergebnis FALSE. *) 

PROCEDURE Length(VAR str: ARRAY OF CHAR): CARDINAL; 

(* Das Funktionsergebnis ist die Laenge von ’str’ 

(Index des ersten unbenutzten Elements). 

Angehaengte Null-Bytes werden nicht beachtet. 

*) 

PROCEDURE Insert(VAR substr, str: ARRAY OF CHAR; 
inx: CARDINAL); 

(* ’substr’ wird in ’str’ eingefuegt, beginnend bei ’str[inx]’. 

’inx’ darf keine Position hinter der in ’str’ gespeicherten 
Zeichenkette bezeichnen. 

*) 

PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx,len: CARDINAL); 

(* Beginnend bei ’str [inx]’ werden ’len’ Zeichen aus ’str’ 
geloescht. 

*) 

PROCEDURE In(VAR substr, str: ARRAY OF CHAR; 

VAR pos: CARDINAL): BOOLEAN; 

(* Falls ’substr’ in ’str’ enthalten ist, wird in ’pos’ der Index 
des ersten Auftretens zurueckgegeben und der Funktionswert ist 
TRUE. Ansonsten ist der Funktionswert FALSE und ’pos’ 

Undefiniert. 

*) 

PROCEDURE NewSub(switch: BOOLEAN); 

(* Es wird die Initialisierung der Suche von ’substr’ in der Prozedur 
’ln’ ein- oder ausgeschaltet. Bei ausgeschalteter Initialisierung 
verlaeuft die Suche u. U. deutlich schneller. In diesem Fall muss 
jedoch bei jedem Aufruf von ’ln’ die gleiche Zeichenkette an ’substr’ 
uebergeben werden. 

'switch = TRUE’ schaltet die Initialisierung ein und ’switch = FALSE’ 
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schaltet sie aus. 


PROCEDURE Lower(VAR s: ARRAY OF CHAR); 

(* Alle in ’s’ auftretenden Grossbuchstaben werden durch die 
zugehoerigen Kleinbuchstaben ersetzt. Ein O-Byte wird als 
Ende der Zeichenkette betrachtet. *) 

END Str. 


B.28 Implementierungsmodul ’Str‘ 


IMPLEMENTATION MODULE Str; 

(* Handhabung von Zeichenketten 
(Erklaerungen im Definitionsmodul) 

*) 

FROM InOut IMPORT WriteLn, WriteString; 

IMPORT Func; 

PROCEDURE Empty(VAR str: ARRAY OF CHAR); 

VAR 

i,h: CARDINAL; 

BEGIN 

h:= HIGH(str); 

FÜR i:= 0 TO h DO 
str[i]:= OC; 

END 

END Empty; 

PROCEDURE Assign(VAR dst: ARRAY OF CHAR; src: ARRAY OF CHAR); 
VAR 

i,highd,highs: CARDINAL; 

BEGIN 

highd:= HIGH(dst); 
highs:= HIGH(src); 

FÜR i:= 0 TO highd DO 
IF i<= highs THEN 
dst [i] : = src[i] 

ELSE 

dst [i] : = OC; 

END 

END 

END Assign; 

PROCEDURE Append(VAR dest: ARRAY OF CHAR; 

suffix: ARRAY OF CHAR); 

VAR 

InDest,InSuffix,highd,highs: CARDINAL; 

BEGIN 

highd:= HIGH(dest); 
highs:= HIGH(suffix); 

InDest:= Length(dest); 

InSuf f ix := 0; 

WHILE (InDest <= highd) AND (InSuffix <= highs) DO 
dest [InDest]:= suffix[InSuffix]; 

INC(InDest); INC(InSuffix) 

END 
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END Append; 

PROCEDURE Equal(VAR x: ARRAY QF CHAR; 

y: ARRAY OF CHAR): BOOLEAN; 

VAR 

num, max: CARDINAL; 
equal, end: BOOLEAN; 

BEGIN 

imm:= 0; max:= Func.MinCard(HIGH(x), HIGH(y)); 

REPEAT 

equal: = x [num] = y [num] ; 

end:= (x[num] = OC) OR (y[num] = OC) OR (num = max); 
INC (num) 

UNTIL end OR NOT equal; 

IF equal AND (num > max) THEN 

IF (x[num-1] # OC) AND (HIGH(x) # HIGH(y)) THEN 
IF HIGH(x) < HIGH(y) THEN 
equal: = y [num] # OC 

ELSE 

equal: = x [num] # OC 

END 

END 

END; 

RETURN equal 
END Equal; 

PROCEDURE Ordered(VAR x: ARRAY OF CHAR; 

y: ARRAY OF CHAR): BOOLEAN; 

VAR 

num, max: CARDINAL; 
equal, end, Order: BOOLEAN; 

BEGIN 

num:= 0; max:= Func.MinCard(HIGH(x), HIGH(y)); 

REPEAT 

equal: = x [num] = y [num] ; 

end:= (x[num] = OC) OR (y[num] = OC) OR (num = max); 
INC (num) 

UNTIL end OR NOT equal; 

IF equal THEN 

(* hier gilt: (x[num-1] = y[num-1]) AND (num > max) *) 
IF x[num-1] = OC THEN 
Order:= TRUE 

ELSE 

Order:= HIGH(x) <= HIGH(y) 

END 

ELSE 

Order:= x[num-1] < y [num-1] 

END; 

RETURN Order 
END Ordered; 

PROCEDURE Length(VAR str: ARRAY OF CHAR): CARDINAL; 

(* Verbesserungsmoeglichkeit: 

Suche nach der Intervallhalbierungsmethode 

*) 

VAR 

i,high: CARDINAL; 
cont: BOOLEAN; 

BEGIN 

i: = 0; 

high:= HIGH(str); 

WHILE (str [i] # OC) AND (i < high) DO 
INC(i) 

END; 

IF str[i] = OC THEN 
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RETURN i 

END; 

RETURN i+1 
END Length; 

PROCEDURE Insert(VAR substr, str: ARRAY OF CHAR; 
inx: CARDINAL); 

VAR 

i, j, SubLength, StrEnd, SubHigh, StrHigh, 

NewLastChar: CARDINAL; 

BEGIN 

StrEnd:= Length(str); 

IF inx>StrEnd THEN 
WriteLn; 

WriteString("*** Str.Insert: ***"); 

WriteLn; 

WriteString("*** angegebener Index groesser ***"); 

WriteLn; 

WriteString("*** als Laenge der Zeichenkette ***"); 

WriteLn; 

HALT 

END; 

SubLength:= Length(substr); 

SubHigh:= HIGH(substr); StrHigh:= HIGH(str); 

(* in ’str’ Platz fuer ’substr’ schaffen: *) 

NewLastChar:= (StrEnd-1) + SubLength; 

i:= NewLastChar; (* i: Ziel der Verschiebung *) 

FÜR j:= StrEnd-l-Func.MaxCard(NewLastChar-StrHigh, 0) 

TO inx BY -1 DO 

str [i] : = str [j] ; 

INC(i) 

END; 

(* ’substr’ einfuegen: *) 

j:= 0; (* j: Position in ’substr’ *) 

FOR i:= inx TO Func.MaxCard(inx+SubLength-1, StrHigh) DO 
str[i]:= substr [j] ; 

INC(j) 

END 

END Insert; 

PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx,len: CARDINAL); 
VAR 

i, j, StrEnd, StrHigh, NewLastChar: CARDINAL; 
cont: BOOLEAN; 

BEGIN 

StrEnd:= Length(str); 

IF inx>StrEnd THEN 
WriteLn; 

WriteString("*** Str.Delete: ***"); 

WriteLn; 

WriteString("*** angegebener Index groesser ***"); 

WriteLn; 

WriteString("*** als Laenge der Zeichenkette ***"); 

WriteLn; 

HALT 

END; 

StrHigh:= HIGH(str); 


FOR i:= inx TO StrEnd DO 

IF (i<inx+len) AND (i+len<=StrHigh) THEN 
str[i]:= str[i+len] 
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ELSE 

str[i]:= OC 

END 

END 

END Delete; 

VAR 

d: ARRAY [0C..255C] OF INTEGER; 

(* ’Vorrueckwerte’ fuer jedes Zeichen im Zeichensatz *) 
changed: ARRAY [0..255] OF CHAR; 

(* Liste der Indizes in ’d’, die veraendert wurden *) 
top: INTEGER; 

(* erstes unbenutztes Element in ’changed’ *) 
newsub: BOOLEAN; 

(* FALSE: es wird angenommen, dass alle ’substr’-Parameter, 
die an ’ln’ uebergeben werden, gleich sind und 
die Suche nicht initialisiert werden muss 
(-> schneller) 

*) 

SubLen: INTEGER; 

(* Laenge der zu suchenden Zeichenkette *) 

PROCEDURE InitSearchCVAR substr: ARRAY OF CHAR); 

(* ’substr’ wird als zu suchende Zeichenkette betrachtet. Strukturinfor- 
mation fuer die spaetere Suche durch ’ln’ werden in ’d’ gespeichert. 

*) 

VAR i, InSub: INTEGER; 

BEGIN 

SubLen:= Length(substr); 

FOR i:= 0 TO top-1 DO 
d[changed[i]] := -1 

END; 

top:= 0; 

FOR InSub:= 0 TO SubLen-2 DO 

IF d[substr[InSub]] = -1 THEN 

changed[top]:= substr[InSub]; 

INC(top) 

END; 

d [substr[InSub]]:= SubLen-InSub-1 

END 

END InitSearch; 

PROCEDURE In(VAR substr, str: ARRAY OF CHAR; 

VAR pos: CARDINAL): BOOLEAN; 

(* Es wird der Boyer-Moore Algorithmus aus 

N. Wirth, Algorithmen und Datenstrukturen mit Modula-2, 

Teubner Verlag, S. 67 ff. 
verwendet. 

*) 

VAR 

StrLen, InStr, InSub, WorklnStr: INTEGER; 
stop: BOOLEAN; 
inequal: BOOLEAN; 
i: INTEGER; 

BEGIN 

StrLen:= Length(str); 

IF newsub THEN 

InitSearch(substr); 

IF (SubLen < 1) OR (SubLen > StrLen) THEN RETURN FALSE END 

ELSE 

IF SubLen > StrLen THEN RETURN FALSE END 

END; 


InStr:= SubLen-1; 
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REPEAT 

WorkInStr:= InStr; InSub:= SubLen-1; 

REPEAT 

inequal:= substr [InSub] # str[WorklnStr]; 
DEC(WorklnStr); DEC(InSub) 

UNTIL (InSub < 0) 0R inequal; 

IF d[str[InStr]] = -1 THEN 
InStr:= InStr + SubLen 

ELSE 

InStr:= InStr + d[str[InStr]] 

END 

UNTIL ((InSub < 0) AND NOT inequal) OR (InStr >= StrLen); 

pos:= WorklnStr+l; 

RETURN (InSub < 0) AND NOT inequal 
END In; 

PROCEDURE NewSub(switch: BOOLEAN); 

BEGIN 

newsub:= switch 
END NewSub; 

PROCEDURE Lower(VAR s: ARRAY OF CHAR); 

VAR i: CARDINAL; 

stop: BOOLEAN; 

BEGIN 

stop:= FALSE; 
i:= 0; 

REPEAT 

IF (’A> <= s [i]) AND (s [i] <= ’Z’) THEN 

s [i] : = CHR(0RD( ’ a’ ) + 0RD(s[i]) - ORD(’A’)) 

END; 

stop:= (s [i] = CHR(O)) OR (i+1 > HIGH(s)); 

INC(i) 

UNTIL stop 
END Lower; 

VAR 

ch: CHAR; 

BEGIN 

FOR ch:= OC TO 255C DO d[ch]:= -1 END; 
top:= 0; 
newsub:= TRUE 
END Str. 


B.29 Definitionsmodul ’Sys‘ 


DEFINITION MODULE Sys; 

(* Systemabhaengige nichtmathematische Prozeduren 

(Atari ST, TOS 2.06, Megamax Modula-2 Compiler V4.2) 

In diesem Modul sind alle nichtmathematischen Prozeduren 
gesammelt, deren Implementierung von dem System abhaengt, 
auf dem das Programm uebersetzt wurde. 


*) 


FROM SYSTEM IMPORT ADDRESS; 
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TYPE File; 

tP0INTER= ADDRESS; 

(* ’tPOINTER’ ist zuweisungskompatibel zu allen 
Zeigern *) 

PROCEDURE OpenRead(VAR f: File; name: ARRAY OF CHAR); 

(* Die Datei ’f’ wird unter dem in ’name’ angegebenen Namen zum 
Lesen geoeffnet. *) 

PROCEDURE OpenWrite(VAR f: File; name: ARRAY OF CHAR); 

(* Die Datei ’f’ wird unter dem in ’name’ angegebenen Namen zum 
Schreiben geoeffnet. Ein bereits existierende Datei wird 
geloescht. *) 

PROCEDURE Close(VAR f: File); 

(* Die Datei ’f’ wird geschlossen. *) 

PROCEDURE Exist(name: ARRAY OF CHAR): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls eine Datei mit dem in ’name’ 
angegebenen Namen existiert. *) 

PROCEDURE DeleteCname: ARRAY OF CHAR); 

(* Die Datei mit dem angegebenen Namen wird geloescht. *) 

PROCEDURE EOF(VAR f: File): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls das Ende der Datei ’f’ 
erreicht ist. *) 

PROCEDURE State(VAR f: File): INTEGER; 

(* Das Funktionsergebnis ist ein nichtnegativer Wert, falls die 
letzte Operation auf ’f’ erfolgreich war. *) 

PROCEDURE WriteLn(VAR f: File); 

(* Die Ausgabe der laufenden Zeile in die Datei ’f’ wird beendet. *) 

PROCEDURE WriteCard(VAR f: File; val: LONGCARD; length: CARDINAL); 

(* ’val’ wird in die Datei ’f’ ausgegeben. Die Ausgabe hat eine 
Laenge von ’length’ Zeichen. *) 

PROCEDURE WriteReal(VAR f: File; val: LONGREAL; 

length, dec: CARDINAL); 

(* ... analog ’WriteCard’. Es werden ’dec’ Nachkommastellen ausge¬ 
geben (also length <= dec+1). *) 

PROCEDURE WriteString(VAR f: File; val: ARRAY OF CHAR); 

(* ... analog 'WriteCard’ *) 

PROCEDURE ReadCard(VAR f: File; VAR val: CARDINAL); 

(* Eine Zahl von Typ CARDINAL wird aus ’f’ gelesen und in ’val’ 
zurueckgegeben. *) 

PROCEDURE ReadLCard(VAR f: File; VAR val: LONGCARD); 

(* ... analog ’ReadCard’, jedoch fuer Typ 'LONGCARD’ *) 

PROCEDURE ReadReal(VAR f: File; VAR val: LONGREAL); 

(* Eine Zahl von Typ LONGREAL wird aus ’f’ gelesen und in ’val’ 
zurueckgegeben. *) 

PROCEDURE ReadString(VAR f: File; VAR val: ARRAY OF CHAR); 

(* Aus der Datei ’f’ wird eine Zeichenkette gelesen und in ’val’ 
zurueckgegeben. Fuehrende Leerstellen werden ignoriert. 

Das Lesen wird am Zeilenende oder bei der ersten Leerstelle 
nach der Zeichenkette abgebrochen. *) 
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PROCEDURE ReadLineCVAR f: File; VAR val: ARRAY QF CHAR); 

(* Die aktuelle Zeile wird bis zum Zeilenende gelesen und in 
’val’ zurueckgegeben. Nachfolgende Leseversuche werden 
in der naechsten Zeile fortgesetzt. *) 

PROCEDURE ReadLnCVAR f: File); 

(* Die aktuelle Zeile wird bis zu ihrem Ende verworfen. Das 
Lesen wird mit der naechsten Zeile fortgesetzt. *) 

END Sys. 


B.30 Implementierungsmodul ’Sys‘ 


IMPLEMENTATION MODULE Sys; 

(* Systemabhaengige nichtmathematische Prozeduren 

(Atari ST, TOS 2.06, Megamax Modula-2 Compiler V4.2) 

(Erklaerungen im Definitionsmodul) 

*) 

IMPORT Files, Text, NumberlO; 

FROM Files IMPORT Access, ReplaceMode, Open, Create; 

TYPE 

File= Files.File; 

PROCEDURE OpenRead(VAR f: File; name: ARRAY 0F CHAR); 

BEGIN 

0pen(f, name, Access(readSeqTxt)) 

END OpenRead; 

PROCEDURE OpenWrite(VAR f: File; name: ARRAY 0F CHAR); 

BEGIN 

Create(f, name, Access(writeSeqTxt), ReplaceMode(replaceOld)) 
END OpenWrite; 

PROCEDURE Close(VAR f: File); 

BEGIN 

Files.Close(f) 

END Close; 

PROCEDURE Exist(name: ARRAY 0F CHAR): B00LEAN; 

VAR 

f: File; 

BEGIN 

0pen(f, name, Access(readOnly) ); 

IF Files.State(f) < 0 THEN 
RETURN FALSE 

END; 

Close(f); 

RETURN TRUE 
END Exist; 

PROCEDURE Delete(name: ARRAY OF CHAR); 

VAR 

f: File; 

BEGIN 

IF Exist(name) THEN 

OpenWrite(f, name); 
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Files.Remove(f) 

END 

END Delete; 

PROCEDURE EOF(VAR f: File): BOOLEAN; 

BEGIN 

RETURN Files.EOF(f) 

END EOF; 

PROCEDURE State(VAR f: File): INTEGER; 

BEGIN 

RETURN Files.State(f) 

END State; 

PROCEDURE WriteLnCVAR f: File); 

BEGIN 

Text.WriteLn(f) 

END WriteLn; 

PROCEDURE WriteCard(VAR f: File; val: LONGCARD; length: CARDINAL); 
BEGIN 

NumberlO.WriteCard(f, val, length) 

END WriteCard; 

PROCEDURE WriteReal(VAR f: File; val: LONGREAL; 

length,dec: CARDINAL); 

BEGIN 

NumberlO.WriteReal(f, val, length, dec) 

END WriteReal; 

PROCEDURE WriteString(VAR f: File; val: ARRAY OF CHAR); 

BEGIN 

Text.WriteString(f, val) 

END WriteString; 

PROCEDURE ReadCard(VAR f: File; VAR val: CARDINAL); 

VAR 

dummy: BOOLEAN; 

BEGIN 

NumberlO.ReadCard(f, val, dummy) 

END ReadCard; 

PROCEDURE ReadLCard(VAR f: File; VAR val: LONGCARD); 

VAR 

dummy: BOOLEAN; 

BEGIN 

NumberlO.ReadLCard(f, val, dummy) 

END ReadLCard; 

PROCEDURE ReadReal(VAR f: File; VAR val: LONGREAL); 

VAR 

dummy: BOOLEAN; 

BEGIN 

NumberlO.ReadLReal(f, val, dummy) 

END ReadReal; 

PROCEDURE ReadString(VAR f: File; VAR val: ARRAY OF CHAR); 

BEGIN 

Text.ReadToken(f, val) 

END ReadString; 

PROCEDURE ReadLine(VAR f: File; VAR val: ARRAY OF CHAR); 

BEGIN 

Text.ReadFromLine(f, val) 

END ReadLine; 
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PROCEDURE ReadLnCVAR f: File); 

VAR 

dummy: ARRAY [1..160] 0F CHAR; 
BEGIN 

Text.ReadFromLine(f,dummy) 

END ReadLn; 


END Sys. 


B.31 Definitionsmodul ’SysMath‘ 


DEFINITION MODULE SysMath; 

(* Systemabhaengige mathematische Prozeduren 

(Atari ST, TOS 2.06, Megamax Modula-2 Compiler V4.2) 

In diesem Modul sind alle mathematischen Prozeduren gesammelt, 
um eine Portierung auf andere Rechner/Compiler zu vereinfachen. 

*) 

(***** Typkonvertierungen: *****) 

(* zu den Funktionen sind nur Erklaerungen angegeben, falls sie 
neben der Typkonvertierung noch weitere Effekte auf den 
jeweiligen Wert besitzen *) 

PROCEDURE LCard2Card(x: LONGCARD): CARDINAL; 

PROCEDURE LCard2LReal(x: LONGCARD): LONGREAL; 

PROCEDURE Card2LCard(x: CARDINAL): LONGCARD; 

PROCEDURE Card2LReal(x: CARDINAL): LONGREAL; 

PROCEDURE LReal2Card(x: LONGREAL): CARDINAL; 

(* Nachkommastellen werden abgeschnitten *) 

PROCEDURE LReal2LCard(x: LONGREAL): LONGCARD; 

(* Nachkommastellen werden abgeschnitten *) 

PROCEDURE LReal2LInt(x: LONGREAL): LONGINT; 

(* Nachkommastellen werden abgeschnitten *) 

PROCEDURE entier(x: LONGREAL): LONGINT; 

(* identisch zu ’LReal2LInt’; zur Erhoehung der Lesbarkeit des 
Quelltextes *) 

PROCEDURE LInt2Int(x: LONGINT): INTEGER; 

PROCEDURE LInt2LReal(x: LONGINT): LONGREAL; 

PROCEDURE real(x: LONGINT): LONGREAL; 

(* identisch zu ’LInt2LReal’; zur Erhoehung der Lesbarkeit des 
Quelltextes *) 

PROCEDURE Int2LInt(x: INTEGER): LONGINT; 
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(***** Berechnungen: ****♦) 

PROCEDURE cos(x: LONGREAL): LQNGREAL; 

(* Cosinus von x (Bogenmass) *) 

PROCEDURE sin(x: LONGREAL): LONGREAL; 

(* Sinus von x (Bogenmass) *) 

PROCEDURE ln(x: LONGREAL): LONGREAL; 

(* Logarithmus zur Basis e von x *) 

PROCEDURE ld(x: LONGREAL): LONGREAL; 

(* Logarithmus zur Basis 2 von x *) 

PROCEDURE lg(x: LONGREAL): LONGREAL; 

(* Logarithmus zur Basis 10 von x *) 

PROCEDURE power(b, x: LONGREAL): LONGREAL; 
(* b"x *) 

PROCEDURE sqrt(x: LONGREAL): LONGREAL; 

(* Wurzel von x *) 

END SysMath. 


B.32 Implementierungsmodul ’SysMath‘ 


IMPLEMENTATION MODULE SysMath; 

(* Systemabhaengige mathematische Prozeduren 

(Atari ST, TOS 2.06, Megamax Modula-2 Compiler V4.2) 

(Erklaerungen im Definitionsmodul) 

*) 

IMPORT MathLibO; 

(***** Typkonvertierungen: *****) 

(* zu den Funktionen sind nur Erklaerungen angegeben, falls sie 
neben der Typkonvertierung noch weitere Effekte auf den 
jeweiligen Wert besitzen *) 

PROCEDURE LCard2Card(x: LONGCARD): CARDINAL; 

BEGIN 

RETURN SHORT(x) 

END LCard2Card; 

PROCEDURE LCard2LReal(x: LONGCARD): LONGREAL; 

BEGIN 

RETURN LInt2LReal(x) 

END LCard2LReal; 

PROCEDURE Card2LCard(x: CARDINAL): LONGCARD; 

BEGIN 

RETURN LONG(x) 

END Card2LCard; 


PROCEDURE Card2LReal(x: CARDINAL): LONGREAL; 
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BEGIN 

RETURN LInt2LReal(LONG(x)) 

END Card2LReal; 

PROCEDURE LReal2Card(x: LONGREAL): CARDINAL; 
BEGIN 

RETURN LInt2Int(LReal2LInt(x)) 

END LReal2Card; 

PROCEDURE LReal2LCard(x: LONGREAL): LONGCARD; 
BEGIN 

RETURN LReal2LInt(x) 

END LReal2LCard; 

PROCEDURE LReal2LInt(x: LONGREAL): LONGINT; 
BEGIN 

RETURN MathLibO.entier(x) 

END LReal2LInt; 

PROCEDURE entier(x: LONGREAL): LONGINT; 

BEGIN 

RETURN LReal2LInt(x) 

END entier; 

PROCEDURE LInt2Int(x: LONGINT): INTEGER; 

BEGIN 

RETURN SHORT(x) 

END LInt2Int; 

PROCEDURE LInt2LReal(x: LONGINT): LONGREAL; 
BEGIN 

RETURN MathLibO.real(x) 

END LInt2LReal; 

PROCEDURE real(x: LONGINT): LONGREAL; 

BEGIN 

RETURN LInt2LReal(x) 

END real; 

PROCEDURE Int2LInt(x: INTEGER): LONGINT; 

BEGIN 

RETURN LONG(x) 

END Int2LInt; 


(***** Berechnungen: **+**) 

PROCEDURE cos(x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.cos(x) 

END cos; 


PROCEDURE sin(x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.sin(x) 

END sin; 

PROCEDURE ln(x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.ln(x) 

END ln; 

PROCEDURE ld(x: LONGREAL): LONGREAL; 
(* Logarithmus zur Basis 2 von x *) 
BEGIN 
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RETURN MathLibO.ld(x) 

END ld; 

PROCEDURE lg(x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.log(x) 

END lg; 


PROCEDURE power(b, x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.power(b, x) 

END power; 


PROCEDURE sqrt(x: LONGREAL): LONGREAL; 
BEGIN 

RETURN MathLibO.sqrt(x) 

END sqrt; 


END SysMath. 


B.33 Definitionsmodul ’Type‘ 


DEFINITION MODULE Type; 

(* Verwaltung von Elementen selbst definierter Typen fuer die 
Benutzung in Verbindung mit komplexen Datenstrukturen 
(z. B. Listen, Baeume) 

Anstatt mit den Elementen der verschiedenen Typen wird mit 
deren Adressen gearbeitet. Dieses Modul dient dazu, den 
Umgang mit diesen Adressen zu uebernehmen. 

Fuer jeden Datentyp muessen Prozeduren vereinbart werden, 
die die Behandlung von Elementen dieses Typs ermoeglichen. 

Die erforderlichen Operationen sind: 

1) Anlegen 

2) Loeschen 

3) auf Gleichheit pruefen 

4) auf Erfuellung einer Ordnungsrelation pruefen 

5) Berechnung einer Hash-Funktion 

Die Angabe der Prozeduren fuer die Operationen ist optional. 

*) 

IMPORT Sys, Str; 

FROM Sys IMPORT tPOINTER; 

TYPE Id; (* Von diesem Typ sind Identifikatoren fuer 

Typen, die mit diesem Modul verwaltet 
werden. *) 

(* Operationsprozeduren zum Behandeln von Elementen 
selbst definierter Typen: *) 

tNewProc= PROCEDURE(tPOINTER); 

(* 'Anlegen’: 

Die entsprechende Prozedur wird zum Initialisieren 
von Listenelementen benutzt. Dies ist z. B. besonders 
nuetzlich bei 'Listen von Listen’ um die Tochterliste 
gleich mit zu initialisieren. Das Modul 'Type’ ruft 
’Allocate’ selbst auf! *) 
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tDelProc= PROCEDURE(tPOINTER); 

(* 'Loeschen’: 

Die entsprechende Prozedur wird zum Loeschen 
von Listenelementen benutzt. Dies ist z. B. besonders 
nuetzlich bei 'Listen von Listen’ um die Tochterliste 
gleich mit zu loeschen. Das Modul 'Type' ruft 
’Deallocate’ selbst auf! *) 

tEquProc= PROCEDURE(tPOINTER,tPOINTER): BOOLEAN; 

(* 'Pruefen auf Gleichheit’ *) 

tOrdProc= PROCEDURE(tPOINTER,tPOINTER): BQOLEAN; 

(* ’Pruefen auf Erfuellung einer Ordnungsrelation’: 

Die Prozedur muss TRUE ergeben, falls die 
angegebenen Elemente die Relation erfuellen *) 

tHashProc= PROCEDURE(tPOINTER, LONGCARD): LONGCARD; 

PROCEDURE New(size: LONGCARD):Id; 

(* Das Funktionsergebnis ist eine noch nicht benutzte 
Typnummer zur Verwendung fuer alle Prozeduren, an die 
Parameter vom Typ ’ld’ uebergeben werden muessen. 

’size’ gibt die Groesse der Elemente von dem neuen 
Typ an (mit TSIZE festgestellt). *) 

PROCEDURE Copy(type: Id): Id; 

(* ’Copy’ arbeitet analog zu ’New’, jedoch mit dem Unterschied, 
dass der neue Typ eine Kopie des angegebenen Typs ist. 
Abgesehen von einem mit ’SetName’ festgelegten Namen werden 
alle Einstellungen uebernommen. 

*) 

PROCEDURE SetName(type: Id; name: ARRAY OF CHAR); 

(* Fuer den angegebenen Typ wird die angegebene Zeichenkette 
als Name vereinbart. Vom Namen werden nur die ersten 16 
Zeichen beruecksichtigt. Bei weniger als 16 Zeichen wird 
der Rest mit Leerstellen aufgefuellt. *) 

PROCEDURE GetName(type: Id; VAR name: ARRAY OF CHAR); 

(* In ’name’ wird der mit ’SetName’ fuer den Typ vereinbarte 
Name zurueckgegeben. Falls kein Name vereinbart wurde, 
werden Leerstellen zurueckgegeben. Die an ’name’ 
zurueckgegebene Zeichenkette wird ggf. abgeschnitten oder 
mit Leerstellen aufgefuellt. 

*) 

PROCEDURE Getld(name: ARRAY OF CHAR): Id; 

(* Das Funktionsergebnis ist der Identifikator des Types, 
fuer den ’name’ mit Hilfe von ’SetName’ als Name 
vereinbart wurde. Falls der gesuchte Typ nicht bekannt 
ist, wird eine Fehlermeldung ausgegeben. *) 

PROCEDURE NoTypeO: Id; 

(* Ergibt eine Konstante zur Benutztung in Verbindung mit 
’Equal’. Diese Konstante wird ggf. von Prozeduren 
zurueckgegeben. Mit Hilfe von ’NoType’ und ’Equal’ 
kann so auf Nichtvorhandensein eines Typs geprueft 
werden. *) 

PROCEDURE Equal(tl,t2: Id): BOQLEAN; 

(* Das Funktionsergebnis ist TRUE, falls ’tl’ und ’t2’ denselben 
Typ bezeichnen. *) 

PROCEDURE SetNewProc(type: Id; NewProc: tNewProc); 
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PROCEDURE SetDelProc(type: Id; DelProc: tDelProc); 

PROCEDURE SetEquProc(type: Id; EquProc: tEquProc); 

PROCEDURE SetOrdProc(type: Id; OrdProc: tOrdProc); 

PROCEDURE SetHashProc(type: Id; HashProc: tHashProc); 

(* Fuer den angegebenen Typ wird die entsprechende Operations¬ 
prozedur aufgerufen. *) 

PROCEDURE OrdProcDefined(type: Id): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls fuer den angegebenen 
Typ mit ’SetOrdProc’ eine Prozedur vereinbart wurde. *) 

PROCEDURE NewI(type: Id): tPOINTER; (*NEW Item*) 

(* Der Funktionswert ist ein Zeiger auf ein initialisiertes 
Element des angegebenen Typs. Nach ’Allocate’ wird ’NewProc’ 
fuer dieses Element aufgerufen. *) 

PROCEDURE DelKtype: Id; VAR item: tPOINTER); (* DELete Item*) 

(* Das Element ’item’ des Typs ’type’ wird durch Aufruf von 
’DelProc’ und ’Deallocate’ geloescht. Es duerfen keine 
Referenzen auf das Element mehr vorhanden sein. 

Nach dem Aufruf von ’Dell’ gilt ’item = NIL’ . 

*) 

PROCEDURE EquI(type: Id; a,b: tPOINTER): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls die angegebenen 
Elemente des angegebenen Typs gleich sind. 

(benutzt die mit ’SetEquProc’ definierte Prozedur) 

*) 

PROCEDURE OrdI(type: Id; a,b: tPOINTER): BOOLEAN; 

(* Das Funktionsergebnis ist TRUE, falls die angegebenen 
Elemente des angegebenen Typs die Ordnungsrelation 
erfuellen. 

(benutzt die mit 'SetOrdProc’ definierte Prozedur) 

*) 

PROCEDURE HashI(type: Id; a: tPOINTER; max: LONGCARD): LONGCARD; 
(* Zurueckgegeben wird das Ergebnis der Hash-Funktion fuer das 
angegebene Element des angegebenen Typs. In ’max’ muss die 
obere Grenze des zulaessigen Funktionswerts angegeben werden. 
Fuer den Funktionswert ’f’ muss gelten ’ 0 <= f < max’. 

*) 

END Type. 
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IMPLEMENTATION MODULE Type; 

(* Verwaltung von Elemente selbst definierte Datentypen 
( Erklaerungen im Definitionsmodul ) 

*) 

(* Verbesserungsmoeglichkeit: 

- Verwaltung von Initialisierungswerten fuer ’NewProcs’ 

( - Export von zusaetzlichen Prozeduren zur Verwaltung der 
Werte 

- Implementierung durch Stapel fuer Initialisierungs¬ 
werte 

- Unterscheidung zwischen Standardinitialisierungswerten 
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und variablen Initialisierungswerten 

) 

*) 

FROM SYSTEM IMPORT TSIZE, ADR; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

FROM InOut IMPORT WriteString, WriteLn; 

IMPORT Sys, Str; 

FROM Sys IMPORT tPOINTER; 

CONST MaxTypes= 30; 

(* maximale Anzahl von Typen, die verwaltet werden 
koennen *) 

MaxName= 32; 

(* maximale Laenge eines Namens fuer eine Typ *) 

TYPE tProcs = RECORD 

(* Operationsprozeduren fuer Listen¬ 
element-Typen *) 

NewProc: tNewProc; 

DelProc: tDelProc; 

EquProc: tEquProc; 

OrdProc: tOrdProc; 

orddef : BOOLEAN; (* ORDer DEFined *) 

(* TRUE: es wurde eine Prozedur 
fuer ’OrdProc’ angegeben *) 
HashProc: tHashProc 

END; 

tPoiTypeRec = POINTER TO tTypeRec; 

Id= tPoiTypeRec; 
tTypeRec = RECORD 

InUse : BOOLEAN; 

(* TRUE: dieser Datensatz wird bereits 
fuer die Beschreibung eines Typs 
verwendet *) 

name : ARRAY [l..MaxName] OF CHAR; 
size : LONGINT; 

(* Groesse eines Elementes des Typs *) 
procs: tProcs 

END; 

tTypeArray = ARRAY [1..MaxTypes] OF tTypeRec; 

VAR 

TypeArray: tTypeArray; 

PROCEDURE DefaultNewProc(adr: tPOINTER); 

BEGIN 

(* tue nichts *) 

END DefaultNewProc; 

PROCEDURE DefaultDelProc(adr: tPOINTER); 

BEGIN 

(* tue nichts *) 

END DefaultDelProc; 

PROCEDURE DefaultEquProc(adrl,adr2: tPOINTER): BOOLEAN; 

BEGIN 

WriteLn; 

WriteStringO 1 *** Type .Def aultEquProc :") ; WriteLn; 
WriteStringO 1 *** keine Vergleichsprozedur vereinbart"); 
WriteLn; 

HALT; 

RETURN FALSE; 

END DefaultEquProc; 

PROCEDURE DefaultOrdProc(adrl,adr2: tPOINTER): BOOLEAN; 
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BEGIN 

WriteLn; 

WriteStringC*** Type.DefaultOrdProc:"); WriteLn; 

WriteStringC"*** keine Ordnungsprozedur vereinbart"); 

WriteLn; 

HALT; 

RETURN TRUE; 

END DefaultOrdProc; 

PROCEDURE DefaultHashProc(adrl: tPOINTER; size: LONGCARD): LONGCARD; 
BEGIN 

WriteLn; 

WriteStringC'*** Type.DefaultHashProc:"); WriteLn; 
WriteStringC'*** keine Hash-Prozedur vereinbart"); 

WriteLn; 

HALT; 

RETURN 0; 

END DefaultHashProc; 

PROCEDURE New(size: LONGCARD):Id; 

VAR i,j: CARDINAL; 

BEGIN 

i: = 1; 

LOOP 

IF NOT TypeArray[i].InUse THEN EXIT END; 

INC(i); 

IF i>MaxTypes THEN EXIT END 

END; 

IF i>MaxTypes THEN 
WriteLn; 

WriteStringC'*** Type.New: ***"); 

WriteLn; 

WriteStringC'*** zu viele Typen; ***"); 

WriteLn; 

WriteStringC'*** Konstante ’MaxTypes’ erhoehen ***"); 

WriteLn; 

HALT 

END; 

FOR j:= 1 TO MaxName DO 

TypeArray [i] .name [j] : = ’ ’ 

END; 

TypeArray[i].InUse:= TRUE; 

TypeArray [i].size:= size; 

TypeArray[i].procs.NewProc:= DefaultNewProc; 

TypeArray [i].procs.DelProc:= DefaultDelProc; 

TypeArray[i].procs.EquProc:= DefaultEquProc; 

TypeArray [i].procs.OrdProc:= DefaultOrdProc; 

TypeArray[i].procs.orddef:= FALSE; 

TypeArray[i].procs.HashProc:= DefaultHashProc; 

RETURN ADR(TypeArray[i]) 

END New; 

PROCEDURE Copy(type: Id): Id; 

VAR NewType: Id; 

BEGIN 

NewType:= New(type*.size); 

NewType*.procs.NewProc:= type*.procs.NewProc; 

NewType*.procs.DelProc:= type*.procs.DelProc; 

NewType*.procs.EquProc:= type*.procs.EquProc; 

NewType*.procs.OrdProc:= type*.procs.OrdProc; 

NewType*.procs.orddef:= type“.procs.orddef; 

NewType*.procs.HashProc:= type*.procs.HashProc; 

RETURN NewType 
END Copy; 
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PROCEDURE SetName(type: Id; name: ARRAY OF CHAR); 

BEGIN 

Str.Assign(type“.name, name) 

END SetName; 

PROCEDURE GetName(type: Id; VAR name: ARRAY OF CHAR); 

BEGIN 

Str.Assign(name, type“.name) 

END GetName; 

PROCEDURE GetldCname: ARRAY OF CHAR): Id; 

VAR i: CARDINAL; 

res: Id; 

BEGIN 

i:= 1; res:= Id(NIL); 

LOOP 

IF TypeArray[i].InUse THEN 

IF Str.Equal(name,TypeArray[i].name) THEN 
res:= ADR(TypeArray[i]); 

EXIT 

END 

END; 

INC(i); 

IF i > MaxTypes THEN 

WriteStringO 1 *** Type . Getld: ") ; WriteLn; 
WriteStringO 1 *** Typ nicht gefunden"); WriteLn; 
HALT 

END 

END; 

RETURN res 
END Getld; 

PROCEDURE NoType(): Id; 

BEGIN 

RETURN Id(NIL) 

END NoType; 

PROCEDURE Equal(tl,t2: Id): BOOLEAN; 

BEGIN 

RETURN tl=t2 
END Equal; 

PROCEDURE SetNewProc(type: Id; NewProc: tNewProc); 

BEGIN 

type“.procs.NewProc:= NewProc 
END SetNewProc; 

PROCEDURE SetDelProc(type: Id; DelProc: tDelProc); 

BEGIN 

type“.procs.DelProc:= DelProc 
END SetDelProc; 

PROCEDURE SetEquProc(type: Id; EquProc: tEquProc); 

BEGIN 

type“.procs.EquProc:= EquProc 
END SetEquProc; 

PROCEDURE SetOrdProc(type: Id; OrdProc: tOrdProc); 

BEGIN 

type“.procs.OrdProc:= OrdProc; 
type“.procs.orddef:= TRUE 
END SetOrdProc; 

PROCEDURE SetHashProc(type: Id; HashProc: tHashProc); 

BEGIN 
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type“.procs.HashProc:= HashProc; 
type“.procs.orddef:= TRUE 
END SetHashProc; 

PROCEDURE OrdProcDefined(type: Id): BQQLEAN; 

BEGIN 

RETURN type“.procs.orddef 
END OrdProcDefined; 

PROCEDURE NewI(type: Id): tPOINTER; (* NEW Item *) 

VAR NewMem: tPOINTER; 

BEGIN 

ALLOCATE(NewMem, type“.size); 
type“.procs.NewProc(NewMem); 

RETURN NewMem 
END NewI; 

(* DELete Item *) 

PROCEDURE Dell(type: Id; VAR item: tPOINTER); 

BEGIN 

IF (type # Id(NIL)) AND (item # NIL) THEN 
type“.procs.DelProc(item); 

DEALLOCATE(item, type“.size); 
item:= NIL 

END 

END Dell; 

PROCEDURE EquI(type: Id; a,b: tPOINTER): BOOLEAN; (* EQUal Items *) 
BEGIN 

RETURN type“.procs.EquProc(a,b) 

END EquI; 

PROCEDURE OrdI(type: Id; a,b: tPOINTER): BOOLEAN; (* ORDered Items *) 
BEGIN 

RETURN type“.procs.OrdProc(a,b) 

END OrdI; 

PROCEDURE HashI(type: Id; a: tPOINTER; size: LONGCARD): LONGCARD; 
BEGIN 

RETURN type“.procs.HashProc(a, size) 

END HashI; 

VAR j: CARDINAL; 

BEGIN 

FOR j:= 1 TO MaxTypes DO 

TypeArray[j].InUse:= FALSE 

END 

END Type. 
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Anhang C 


Testprogramme 


In diesem Kapitel sind alle Programmodule gesammelt, die zum Test von Teilen der Gesam¬ 
timplementierung erforderlich sind. 


C.l Programmodul ’listtest 4 


MODULE listtest; 

(* 

Test der Module ’List’ und ’Cali’ 

*) 

IMPORT Debug; 

FROM InOut IMPORT WriteCard, WriteString, 

ReadCard, ReadString, WriteLn; 

IMPORT Sys, Type, Simptype, List, Cali; 

FROM Sys IMPORT tPOINTER; 

FROM Simptype IMPORT pCard; 

VAR 

eingabe: CARDINAL; 
wert: CARDINAL; 

1: Cali.tCali; 

pos: List.tPos; 

PROCEDURE Printltem(item: tPOINTER); 

VAR 

p: pCard; 

BEGIN 

p:= item; 

WriteCard(p~,5) ; 

IF List.GetPos(l) = pos THEN 
WriteString("<— ") 

END 

END Printitem; 

PROCEDURE PrintList(l: Cali.tCali); 

(* Gibt die Elemente von ’1’ auf der Standardausgabe aus. *) 
BEGIN 

pos:= List.GetPos(1); 

List.Scan(l,Printitem); 

List.SetPos(1,pos) 
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END PrintList; 

PROCEDURE WriteBool(v: BOOLEAN); 

(* Gibt ’v’ auf der Standardausgabe aus. *) 

BEGIN 

IF v THEN 

WriteStringC'TRUE") 

ELSE 

WriteString C"FALSE") 

END 

END WriteBool; 

BEGIN 

WriteLn; 

WriteString(">» Test der Module ’List’ und ’Cali’ «<") ; 
WriteLn; 

Cali.Use(l) ; 

REPEAT 

WriteStringC" 0 - Ende"); WriteLn; 

WriteStringC" 1 - Empty"); WriteLn; 

WriteStringC" 2 - Next"); WriteLn; 

WriteStringC" 3 - Prev"); WriteLn; 

WriteStringC" 4 - InsertBefore"); WriteLn; 

WriteStringC" 5 - InsertBehind"); WriteLn; 

WriteStringC" 6 - DelCur"); WriteLn; 

WriteStringC" 7 - AtFirst"); WriteLn; 

WriteStringC" 8 - AtLast"); WriteLn; 

WriteStringC" 9 - Count"); WriteLn; 

WriteStringC" Liste: "); 

PrintList CD ; WriteLn; 

WriteStringC'Auswahl? "); ReadCardCeingabe) ; WriteLn; 
CASE eingabe QF 

0: C* tue nichts *) 

I 1: List.EmptyCl) 

I 2: List.Next(1) 

I 3: List.Prev(l) 

I 4: WriteStringC" Wert? "); ReadCardCwert); WriteLn; 
Cali.InsertBefore(1,wert) 

I 5: WriteStringC" Wert? "); ReadCardCwert); WriteLn; 

Cali.InsertBehindCl,wert) 

I 6: List .DelCur CD 

I 7: WriteBool(List.AtFirstCD); WriteLn 
I 8: WriteBool(List.AtLast(1)); WriteLn 
I 9: WriteStringC" Laenge der Liste: "); 
WriteCard(List.Count(1),4); WriteLn 

ELSE 

WriteStringC" Eingabefehler"); WriteLn 

END; 

List.CheckStructure(1) 

UNTIL eingabe=0; 

END listtest. 


C.2 Programmodul ’pramtest 4 


MODULE pramtest; 

(* 

Test des Moduls ’Pram’ 

*) 


IMPORT Debug; 
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FROM InOut IMPORT WriteCard, ReadLCard, ReadCard, 

WriteString, ReadString, WriteLn; 

FROM Sys IMPORT tPOINTER; 

IMPORT Pram; 

VAR 

eingabe: CARDINAL; 
wert: LONGCARD; 

BEGIN 

WriteLn; 

WriteStringC "»> Test des Moduls ’Pram’ «<"); 

WriteLn; 

REPEAT 

WriteStringC 0 - Ende"); WriteLn; 

WriteStringC 1 - Pr am. St art" ) ; WriteLn; 

WriteStringC 2 - Pram.Ende"); WriteLn; 

WriteStringC 3 - Prozessoren eingeben") ; WriteLn; 
WriteStringC 4 - Schritte eingeben"); WriteLn; 
WriteStringC 5 - Parallelstart") ; WriteLn; 
WriteStringC 6 - NaechsterBlock") ; WriteLn; 
WriteStringC 7 - ParallelEnde") ; WriteLn; 
WriteStringC GezaehlteSchritteO = "); 
WriteCard(Pram.GezaehlteSchritte(), 4); 

WriteStringC; GezaehlteProzessorenO = "); 
WriteCard(Pram.GezaehlteProzessoren(), 4); 

WriteLn; 

WriteStringC'Auswahl? "); ReadCard(eingabe); WriteLn; 
CASE eingabe OF 

0: (* tue nichts *) 

I 1: Pram.Start 
I 2: Pram.Ende 

I 3: WriteStringC Prozessoren? "); 
ReadLCard(wert); WriteLn; 
Pram.Prozessoren(wert); 

I 4: WriteStringC Schritte? "); 

ReadLCard(wert); WriteLn; 

Pram.Schritte(wert); 

I 5: Pram.ParallelStartCpramtest") 

I 6: Pram.NaechsterBlockCpramtest") 

I 7: Pram.ParallelEndeCpramtest") 

ELSE 

WriteStringC Eingabefehler"); WriteLn 

END 

UNTIL eingabe=0; 

END pramtest. 


C.3 Programmodul ’rndtest 4 


MODULE rndtest; 

(* Test des Moduls ’Rnd’ *) 

FROM InOut IMPORT WriteString, WriteLn, ReadString, ReadCard, 
WriteCard; 

IMPORT Rnd; 

VAR 

w: ARRAY [1..6] OF LONGCARD; 

Wurfzahl,i : CARDINAL; 
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input, input2: CARDINAL; 
gen: Rnd.tGen; 

BEGIN 

WriteString(">» Test des Moduls ’rnd’ «<"); WriteLn; 
Rnd.Use(gen); 

WriteStringC Anfangszahl? "); ReadCardCinput); 

WriteLn; 

Rnd.Start(gen, input); 

REPEAT 

WriteStringC 0 - Ende "); WriteLn; 

WriteStringC" 1 - neue Anfangszahl"); WriteLn; 
WriteStringC" 2 - neuer Generator"); WriteLn; 
WriteStringC" 3 - Wuerfeitest"); WriteLn; 

WriteStringC" Auswahl? "); ReadCardCinput); 

CASE input OF 

0 : (* tue nichts *) 

I 1 : WriteStringC" Anfangszahl? "); ReadCard(input2); 
WriteLn; 

Rnd.Start(gen, input2) 

I 2 : Rnd.DontUse(gen); 

Rnd.Use(gen) 

I 3 : WriteStringC" Anzahl der Wuerfe? "); 
ReadCard(Wurfzahl); 

Rnd.Range(gen,1.0,6.0); 

FÜR i:= 1 TD 6 DO 
w[i] : = 0; 

END; 

FÜR i:= 1 TO Wurfzahl DO 

INC( w[ SHORT(Rnd.Int(gen)) ] ) 

END; 

FOR i:= 1 TO 6 DO 

WriteCardCi,2); WriteStringC": "); 
WriteCardCw[i] ,0) ; 

WriteLn 

END 

ELSE 

WriteStringC" Eingabefehler") 

END 

UNTIL input = 0 
END rndtest. 
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MODULE strtest; 

(* Test des Moduls ’str’ *) 

FROM InOut IMPORT WriteString, WriteLn, ReadString, ReadCard, 
WriteCard; 

IMPORT Str, Debug; 

VAR 

sl, s2: ARRAY [1..40] OF CHAR; 
input: CARDINAL; 
pos: CARDINAL; 

BEGIN 

Str.Empty(sl); Str.Empty(s2); 

WriteStringC"?» Test des Moduls ’str’ «<"); WriteLn; 
REPEAT 
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WriteStringC 0 - Ende "); WriteLn; 

WriteStringC 1 - stringl eingeben"); WriteLn; 
WriteStringC 2 - string2 eingeben"); WriteLn; 
WriteStringC 3 - Str . Equal (stringl, string2) ") ; WriteLn; 
WriteStringC 4 - Str. Ordered(stringl, string2)"); WriteLn 
WriteStringC 5 - Str. Append(stringl, string2)"); WriteLn; 
WriteStringC 6 - Str. In(string2, stringl, pos)"); WriteLn 
WriteStringC stringl = "); WriteString(sl) ; WriteLn; 
WriteStringC string2 = "); WriteString(s2) ; WriteLn; 
WriteStringC Auswahl? "); ReadCard(input) ; 

CASE input OF 

0 : (* tue nichts *) 

I 1 : WriteStringC stringl? "); 

ReadString(sl) ; 

I 2 : WriteStringC string2? "); 

ReadString(s2) ; 

I 3 : IF Str.Equal(sl, s2) THEN 
WriteStringC TRUE") 

ELSE 

WriteStringC FALSE") 

END; 

WriteLn 

I 4 : IF Str.Ordered(sl, s2) THEN 
WriteStringC TRUE") 

ELSE 

WriteStringC FALSE") 

END; 

WriteLn 

I 5 : Str.Append(sl, s2) 

I 6 : IF Str.In(s2, sl, pos) THEN 

WriteStringC gefunden: pos = ") ; 
WriteCard(pos,5) 

ELSE 

WriteStringC NICHT gefunden") 

END; 

WriteLn 

ELSE 

WriteStringC Eingabefehler") 

END 

UNTIL input = 0 
END strtest. 


C.5 Programmodul ’typetest 4 


MODULE typetest; 

(* 

Test des Moduls 'Type’ 

*) 

IMPORT Debug; 

FROM InOut IMPORT WriteCard, WriteString, 

ReadCard, ReadLCard, ReadString, WriteLn; 
FROM Sys IMPORT tPOINTER; 

IMPORT Type; 

TYPE tTestRec = RECORD 

id: Type.Id; 

size: LONGCARD; 

val: ARRAY [1..4] OF tPOINTER 
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END; 

tTestArray = ARRAY [1..4] OF tTestRec; 

VAR 

eingabe: CARDINAL; 
wert: CARDINAL; 

TestArray: tTestArray; 
i: CARDINAL; 
cur: CARDINAL; 

name: ARRAY [1..40] OF CHAR; 

Foundld: Type.Id; 
dummy: BOOLEAN; 

PROCEDURE NewProcl(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist NewProcl WriteLn 

END NewProcl; 

PROCEDURE DelProcl(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist DelProcl ."); WriteLn 
END DelProcl; 

PROCEDURE EquProcl(hl, h2: tPOINTER): BOOLEAN; 
BEGIN 

WriteStringC'Hier ist EquProcl ."); WriteLn; 
RETURN TRUE 
END EquProcl; 

PROCEDURE OrdProcl(hl, h2: tPOINTER): BOOLEAN; 
BEGIN 

WriteStringC'Hier ist EquProcl ."); WriteLn; 
RETURN TRUE 
END OrdProcl; 

PROCEDURE NewProc2(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist NewProc2 ."); WriteLn 
END NewProc2; 

PROCEDURE DelProc2(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist DelProc2 ."); WriteLn 
END DelProc2; 

PROCEDURE EquProc2(hl, h2: tPOINTER): BOOLEAN; 
BEGIN 

WriteStringC'Hier ist EquProc2 ."); WriteLn; 
RETURN TRUE 
END EquProc2; 

PROCEDURE 0rdProc2(hl, h2: tPOINTER): BOOLEAN; 
BEGIN 

WriteStringC'Hier ist EquProc2 ."); WriteLn; 
RETURN TRUE 
END 0rdProc2; 

PROCEDURE NewProc3(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist NewProc3 ."); WriteLn 
END NewProc3; 

PROCEDURE DelProc3(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist DelProc3 ."); WriteLn 
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END DelProc3; 

PROCEDURE EquProc3(hl, h2: tPQINTER): BOOLEAN; 

BEGIN 

WriteStringC'Hier ist EquProc3 WriteLn; 

RETURN TRUE 
END EquProc3; 

PROCEDURE 0rdProc3(hl, h2: tPOINTER): BOOLEAN; 

BEGIN 

WriteStringC'Hier ist EquProc3 WriteLn; 

RETURN TRUE 
END 0rdProc3; 

PROCEDURE NewProc4(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist NewProc4 ."); WriteLn 
END NewProc4; 

PROCEDURE DelProc4(h: tPOINTER); 

BEGIN 

WriteStringC'Hier ist DelProc4 ."); WriteLn 
END DelProc4; 

PROCEDURE EquProc4(hl, h2: tPOINTER): BOOLEAN; 

BEGIN 

WriteStringC'Hier ist EquProc4 ."); WriteLn; 

RETURN TRUE 
END EquProc4; 

PROCEDURE 0rdProc4(hl, h2: tPOINTER): BOOLEAN; 

BEGIN 

WriteStringC'Hier ist EquProc4 ."); WriteLn; 

RETURN TRUE 
END 0rdProc4; 

BEGIN 

cur:= 4; 

WriteLn; 

WriteString("»> Test des Moduls 'Type’ «<"); 

WriteLn; 

REPEAT 

WriteStringC 0 - Ende"); WriteLn; 

WriteStringC 1 - Typ waehlen"); WriteLn; 
WriteStringC 2 - New"); WriteLn; 

WriteStringC 3 - SetName"); WriteLn; 

WriteStringC 4 - Getld"); WriteLn; 

WriteStringC 5 - NewI"); WriteLn; 

WriteStringC 6 - Dell"); WriteLn; 

WriteStringC 7 - Proc’s"); WriteLn; 

WriteStringC aktueller Typ: "); 

WriteCard(cur,5); WriteLn; 

WriteStringC'Auswahl? "); ReadCard(eingabe); WriteLn; 
WITH TestArray [cur] DO 
CASE eingabe OF 

0: (* tue nichts *) 

I 1: WriteStringC Typ [ 1. .4] ? "); 

ReadCard(cur); WriteLn; 

I 2: WriteStringC Groesse? "); 

ReadLCard(size); 
id:= Type.New(size); 

CASE cur OF 
1: 

Type.SetNewProc(id, NewProcl); 

Type.SetDelProc(id, DelProcl); 
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Type.SetEquProc(id, EquProcl); 

Type.SetQrdProc(id, OrdProcl) 

I 2: 

Type.SetNewProc(id, NewProc2); 

Type.SetDelProc(id, DelProc2); 

Type.SetEquProc(id, EquProc2); 

Type.SetOrdProc(id, 0rdProc2) 

I 3: 

Type.SetNewProc(id, NewProc3); 

Type.SetDelProc(id, DelProc3); 
Type.SetEquProc(id, EquProc3); 

Type.SetOrdProc(id, 0rdProc3) 

I 4: 

Type.SetNewProc(id, NewProc4); 

Type.SetDelProc(id, DelProc4); 
Type.SetEquProc(id, EquProc4); 
Type.SetOrdProc(id, 0rdProc4) 

END; 

I 3: WriteStringC Name? "); 

ReadString(name); 

Type.SetName(id, name); 

I 4: WriteStringC Name? "); 

ReadString(name); 

WriteString("Id: "); 

WriteCard(LONGCARD(Type.Getld(name)), 5); 
WriteLn; 

I 5: WriteStringC Nummer [ 1. . 4] ? "); 
ReadCard(wert); 
val[wert]:= Type.NewI(id) 

I 6: WriteStringC Nummer [1. .4]? "); 
ReadCard(wert); 

Type.Dell(id, val[wert]) 

I 7: WriteStringC EquProc: ") ; WriteLn; 

dummy:= Type.EquI(id, val[1], val [2]); 
WriteStringC OrdProc: ") ; WriteLn; 
dummy:= Type.OrdI(id, val[1], val[2]) 

ELSE 

WriteStringC Eingabefehler"); WriteLn 

END; 

END; 

UNTIL eingabe=0; 

END typetest. 



